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FOREWORD 


You are about to start a fascinating journey, into the realm 


have been fought over topics such as: 
— Can a machine really think ? 


—What is the nature of intelligence, and will a 


machine ever be built which could partake of that 
nature ? 


Once you've worked through this book, you will be ready 
to enter that debate, and enter it with authority. For in this 
book we are going to investigate the fascinating world of 
Artificial Intelligence, and are going to replicate some of its 
most famous programs. 


From programs which learn and reason, to those which will 
talk to you, obey you and advise you, we cover a great 
deal of ground. 


Writing this book, which is part of the ‘Interface Artificial 
Intelligence Library’, has been fascinating. Reading through 
the extensive literature on the subject, becoming 
acquainted with the aspirations of Al pioneers, and writing 
programs which — admittedly crudely — allowed some of 
their findings to be duplicated on a microcomputer has 
been an extremely interesting and enjoyable exercise. 


1X 


| hope some of thefascination | ve experienced is trans- 
mitted in this book, and some of the excitement I've felt 


watching the programs will be felt by you when you run 
them. 


Tim Hartnell, 
London, 1984. 





SECTION ONE — THINKING 


CHAPTER ONE — 
LEARNING 
AND REASONING 


There is a continuing debate as to whether producing a 
machine which can behave in a manner which appears 
intelligent is actually taking us any closer to actually 
producing intelligence. A related question, inextricably 
bound up in the debate, concerns the nature of intelligence. 











The programs in this book certainly allow your computer to 
exhibit intelligent responses to situations, making deci- 
sions and acting on them. However, there is no suggestion 
that your computer has awareness of its actions. It does 
not laugh at the nonsequiturs produced in DOCTOR and 
Cannot admire — or even recognize — a particularly 
effective poem produced by HANSHAN. 


Is there, then, any justification for claiming that we are 
producing ‘artificial intelligence’? It seems to me that 
without the kind of perception which recognizes such 
things as the ‘effectiveness’ of a poem, or the incongruity of 
a response, we cannot really suggest that intelligence is 
present. 


Al is in its infancy, and to expect to elicit real awareness 
and perception from a short BASIC program on a micro- 
computer, when the largest mainframe machines have not 
even scratched the surface of this area, is unrealistic. 


However, there are two areas of behavior which are both 





are the fields of /earning and reasoning. 


TICTAC, a program which plays Tic-Tac-Toe (or Noughts 
and Crosses) starts its life with just a knowledge of how to 
win the game, and how to block. It does not have any 
knowledge as to the early moves it should make in a game 
in order to increase its chance of winning. In fact, its initial 
Knowledge base is such that it plays as badly as it can. 








But, put it up against an opponent playing totally at random 
(an opponent who does not even have the rudimentary 
Knowledge that one wins the game by getting three 
nougnts or three crosses in a row) and within ten games or 
so TICTAC will have learnt the value of moving into the 
central square on the grid if it is available, and will have 
ordered its other moves into a sequence which — although 
it differs from the sequence you or | might create in similar 
circumstances — allows it to win an increasing proportion 
of its games, even against an intelligent opponent such as 
yourself. TIC TAC has been written to show you the state of 
its present learning after each game. This makes it a 
fascinating program to run, and there are many ways you 
can extend the program to investigate its ability to learn. 


SYLLOGY is our reasoning program. It aims to solve syllo- 
gisms, such as this early one: 


SOCRATES IS A MAN 
ALL MEN ARE MORTAL 


THEREFORE, SOCRATES IS MORTAL 


From the two initial premises, SYLLOGY draws a 
reasonable conclusion. The important thing to note its that 
SYLLOGY can reach conclusions about information which 
has not been explicitly fed into it. 


ll explain that. Look at these two premises: 


A NOVEL IS A BOOK 
A BOOK IS PRINTED ON PAPER 





Although the program has not been told explicitly that a 
novel is printed on paper, it will answer YES when 
presented with this question: 


IS A NOVEL PRINTED ON PAPER? 


You can have a great deal of fun feeding in a long range of 
premises, then asking a variety of questions on them, to 
see what conclusions SYLLOGY can form. | HAVE NO DATA 
ON THAT, NO-~ and | DON'T KNOW are all possible 
responses from SYLLOGY. 


In the early stages of the ‘could a machine really become 
intelligent?’ debate, it became obvious that the fundamen- 
tal terms under discussion needed looking at very 
carefully. What did we actually mean by thought and 
thinking ? If we did not know really Know what we meant 
when using the terms to refer to ourselves, how could we 


make judgements on the performance of machines in this 
field? 


This sort of thinking is one of the many effects that studying 
Al has had. Man has been forced to look closely at himself 
and to examine areas of human behavior in a way which 
very few men had ever bothered to do. 


| suggested a short while ago that while machines were not 
even approaching the kind of awareness which appears 
vital as a prerequisite for claiming that intelligence actually 
exists ina system, some aspects of intelligence — reason- 


Ing and the ability to learn — were within our present 
Capabilities. 


There are different kinds of learning. We can learn by 
watching others, by reading, by being told (which is a kind 
of ‘verbal reading’ so the two are very closely related) and 
by ‘trial and error’. Computers can learn in all these ways. 
TICTAC learns largely from trial and error, although it has 
some preprogrammed knowledge (which it gained by 
‘being told’). 





FEEDBACK 


Of course, TICTAC’s trials and errors would be meaning- 
less unless it received feedback as to the success or 
otherwise of its efforts. Feedback is a vital element of 


learning. 


An early ‘machine which would learn’ was the turtle, a fore- 
runner of a swarm of such robotic terrapins, built in 1948 by 
Grey Walter, a physiologist who specialised in the brain. 
He built his turtle — a half-globe that trundiled around the 
floor, working its way around obstacles, and going home to 
bed when its batteries were getting low — to demonstrate 
his thesis that complex behavior, no matter who involved it 
looked to an outside observer, was based on interactions 


between only a few basic ideas. 


The turtle learned its way around by utilising negative 
feedback, that is it would tend not to repeat behavior which 
was not productive. A turtle which did not learn that rolling 
repeatedly into a wall was not a way to move around would 
cover very little ground. 





HOW DO MACHINES THINK? 


Present-day computers are serial processors. That is, they 
proceed from point to point, one step at a time, with their 
future steps determined by the results of their present 
ones. The human brain, by contrast, uses not only serial 
processing, but also parallel processing, in which a number 
of trains of thought — some conscious, others not — are 
underway at once. 





A computer's thought and decision-making process is 
essentially a path through a maze of IF/THEN construct- 
ions: 


IF this is true AND this is true 
AND this not true THEN do this 





The computer, of course, can make OR decisions as well as 
AND ones: 





IF this is true OR this is true 
THEN do this 


They can be combined: 


IF this is true AND that is true OR 
something else is true THEN do this 





decisions.) 


However, a few years before, in 1937, Claude Shannon 
(who later also worked for Bell), had gained his master’s at 
MIT with a thesis on the relationship between Boolean 
Algebra and the flow of power through switched circuits. 


Boolean Algebra — which is where the ‘thinking’ part of 
machines really begins — is based on the work of George 
Boole, a lecturer at Queens College, Cork, in the middle of 
the nineteenth century. His book An Investigation of the 
Laws of Thought on Which Are Founded the Mathematical 
Theories of Logic and Probabilities (published in 1854) laid 
down the foundations of modern symbolic logic. Boolean 
Algebra is based on the rules he laid out, and is the pivot 
round which your computer's ability to reason rotates. 


Boole wrote in the preface to his work: 


The laws we have to examine are the laws of one 


of the most important of our mental faculties. The 
mathematics we have to construct are the 


mathematics of the human intellect. 


Until Boole’s discoveries, it had been assumed that logic 
was a branch of philosophy. Boole showed clearly that, 
instead, it belonged without doubt within the province of 


mathematics. 








SWITCHES AND DECISIONS 


We can investigate Boole’s claims, and see how they relate 
to your computer, decision-making and Al, by mentally 
reconstructing some of the devices that Stibitz built on his 
kitchen table. We'll start with a very simple circuit, con- 


taining a power supply, a single switch, and a light: 


[ — ss» TTr0977 LIGHT 
BATTERY 


You can see that when the switch is closed, power will flow 
and the light will light up. We'll indicate that the switch has 
been turned on by saying that its state is ‘1. When the 
switch is off, and the current does not flow, its state will be 
said to be ‘0’. On equals 1, off equals O. Further we will 
adopt the convention that when the light is lit, its state is 1; 
when the light is off, its state is O. 


This is said to be an ASSERTION circuit. When the switch 
is on, the light is on. That is, switch state equals light state. 
lf we draw up alittle table to show the relationship between 
the states of the lamp and the switch in an assertion circuit 


we would get something like this: 


SWITCH LIGHT 
O O 
1 1 


A table like this, by the way, is called a ‘truth table’. 


Now, we'll look at another simple circuit: 


LIGHT 





BATTERY SWITCH 





lf you look at this, you'll see that the light is on (light state 
equals 1) when the switch is open (switch state is O) and — 
once the switch has been closed (switch state set to 1) — 
the current will flow through it rather than through the light. 


This is a NEGATION circuit, and the truth table for it looks 
like this: 





Now we get to the interesting bits, where circuits can 
‘make decisions. Imagine we have a circuit with two 


Switches in it, as follows: 


nee ONE—— SWITCH TWO————— LIGHT 
BATTERY 


With both switches closed (that is, turned on, with their 
States both equal to 1 [1 1]) the light will glow. If either of 
the switches ts off (one switch set to 1, and the other to O 
(1 O}) or both of them are off (switch one set to O and switch 
two equals O [0 O]) the light will be off. This is called an 
AND gate circuit. 





The truth table looks like this: 


SWITCH ONE SWITCH TWO LIGHT 





QO Q O 
1 O O 
QO 1 O 
1 1 1 


From AND we move on to OR. the OR gate circuit looks like 
this: 


SWITCH ONE 
LIGHT 


SWITCH TWO 
BATTERY 





In this circuit, with the switches in parallel (they were in 
series in the AND circuit), the light will be on (state 1) if 
either switch one or switch two is one (either [0 1] or [1 O]) 


or both switches are one [1 1]. Before you read on, try and 
construct a truth table for the OR gate circuit. 


SWITCH ONE SWITCH TWO | LIGHT 





O O O 
1 O 1 
QO 1 1 
1 1 1 





‘REAL’ LOGIC GATES 


Your computer uses logic gates just like these, except of 
course they are not great big switches which need to be 
turned off and on. One reason Shannon and Stibitz used 
relays is because these are switches which can be turned 
on without actually touching them (when an electrical 
Current is applied, a magnetic force is generated which 


closes the switch). 


There are no electrical relays of Shannon's type in your 
computer either, although the elements of the chips in your 
computer act like thousands upon thousands of relays. In 
schematic diagrams of circuits, the gates we've examined 


above are shown as follows. 
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Firstly there is the ‘inverter. If an incoming signal is state O, 
it leaves the device as state 1, and vice versa: 






A =f B A equals the 
oo opposite of B 
This is an AND gate: 
C= 





There's another gate which is often used in circuits, and 
which will be helpful to you when trying to work out how 
Circuits reach decisions. This is XOR gate, the EXCLUSIVE 
OR. With this, if either input is 1({1 0] or [0 1]) the state of 
the output is 1. However, if they are both 1 [1 1] or both O 
[0 O] the output state is O. 


12 
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and from that understanding, you may well find you ll really 
appreciate how complicated such things can become, and 
how complex they have to be to simulate any kind of 
‘intelligent’ behavior above the most basic. 


Consider, for example, the circuitry required to emulate the 
action of the computer in the first program in this section, 


TICTAC. 


14 





CHAPTER TWO — 
A PROGRAM 
WHICH LEARNS 


Many Al programs do not spring into the computer fully 
formed. Even when they are debugged, and operating, they 
are far from finished. The program we'll look at in this 
section of the book, TIC TAC which is a version of TIC-TAC- 
TOE or NOUGHTS AND CROSSES, iS one such ‘unformed’ 
program. TICTAC learns as it plays, modifying its rules in 
light of the success or otherwise of its current behavior. 











A program which is going to learn as it runs needs its 
working rules in a ‘soft’ form which can be changed as it 
evolves. In this program, the computer knows the rules of 
the game, and has a section specifically to block rows of 
three being formed by its opponent, and to complete a row 
of three for itself if it gets the opportunity, but it has no 
Strategy at all at the beginning. 


Here’s the board layout for TICTAC: 


1 2 3 
4 S 6 
/ 8 9 


The program plays by selecting squares in accord with a 
sequence which it evolves as the games go on. If the game 
is a success, it moves the positions chosen closer to the 
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front of the sequence. It makes no change if the game is 
drawn. A loss shuffles the sequence so the moves are less 
likely to be chosen next time. 


You and | know that the center square (five in the diagram 
above) is the one to take if it is vacant. Initially, TICTAC 
does not know this. In fact, it has been deliberately given a 
very bad opening ‘book’ — with position two as its first 
choice — so that it is easier to see the effect its learning 


has on its play. 


Eventually, if the learning mechanism is working, TIC TAC 


Should realise that position five is a very good one to 
possess if it is available. In fact, as we shall see, TICTAC 


does eventually come to this conclusion, even though it is 
playing against a totally random opponent which has no 
Strategic knowledge whatsoever. It is reasonable to 
assume that if TICTAC was playing against an intelligent 
Opponent — such as yourself — the program would 
improve more rapidly. 


Donald Michie, a pioneer in artificial intelligence research 
at Edinburgh University and still very prominent in the field, 
investigated ‘automatic learning’ in the game of noughts 
and crosses. He uSed a mechanism called ‘boxes’ in which 
a goal is split into several sub-goals. A ‘box’ is formed to 
hold the information of each sub-goal. 


The goal of noughts and crosses is to win. Each sub-goal is 


to make at first (a) a legal move and eventually (b) the best 
move given each game position. 


16 





a game of noughts and crosses. He proceeded to build his 
mechanical opponent as follows (an experiment you may 
well want to duplicate). Michie took 288 matchboxes, and 
painted on the top of each a board position, with the vacant 
Squares numbered in sequence. Next he wrote down, on 
tiny bits of paper, the numbers which were written on the 
vacant squares. Each number was duplicated several 
times, with the same number of each number per box. That 
is, if Squares three and four were vacant in one board 
position, the matchbox contained, say, five scraps of paper 
with the number three written on them, and five bearing the 
number four. 


He played the game as follows. The first move was made by 
opening the box with a blank grid on its top. Inside the box, 
of course, were five pieces of paper for each of the 
numbers one to nine. A piece of paper was chosen at 
random, and the move made there. Michie made a note of 
which number was selected, and of the box from which the 
number was chosen. 


At the end of the game, Michie returned to his list of moves 
and boxes. If the ‘matchbox computer’ had won the game, 
and additional piece of paper bearing each number played 
was placed in the relevant matchbox. That is, if the first 
matchbox used, the one bearing the blank grid, had yielaed 
the number five, an additional piece of paper with the 
number five on it was placed in that matchbox. Naturally 
enough, this increased the chance that five would be 


selected next time the box was opened. 
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The process was continued for every box used in that 
game. If the game was drawn, the contents of the boxes 
were left unchanged. If the ‘computer’ lost the game, the 
pieces of paper which triggered the moves in that losing 
game were withdrawn from the boxes, thus reducing the 
chance that such numbers would be drawn next time the 
Computer came up against the same board configuration. 


In the 1968 paper, Boxes: An Experiment in Adaptive 
Control (Chambers, R. A. and Michie, D., Machine Intelli- 
gence 2 (Ed. Dale, E. and Michie, D.), Oliver & Boyd, 1968, 
pp. 137-152], Michie explains that the boxes ‘learned’ so 
well that after 1000 games against an opponent which 
played totally at random, the program was consistently 
winning between 75% and 87% of all games played. A 
Similar success rate is not expected for TICTAC (even if 
you have the patience to play 1000 games) but it will still 
perform extremely well if draws as well aS wins are 
counted, and the program is given a proper chance to learn. 


SAMUEL 
AND THE CHECKERBOARD 





Michie's ‘intelligent matchboxes’ were but a toy compared 
to a checkers (or ‘draughts’) program created in the late 
sixties by Arthur Samuel of IBM. We are discussing here 
one of his later programs, as outlined in the paper Some 
Studies in Machine Learning Using the Game of Checkers 
— /| — Recent Progress [Samuel, A., IBM Journal of 
Research and Development, vol. 11 (November 1967), pp. 
601-617]. However, it is interesting to note that the final, 
acclaimed program did not spring out of his brain in all its 
majesty. 
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consideration, and Samuel’s program (like the majority of 
such programs which followed) was quite happy to trade 
off pieces when it had more than its opponent, but became 
very conservative in this regard when it was losing, from 
the material point of view. Other factors the program 
considered when evaluating its strength included control of 
the center of the board and the number of pieces which 
could be brought under attack by a single move. 


We will look more closely a little later at the Al aspects of 
board games (with the game SNICKERS, invented just for 
this book) but for now the main interest in Samuel’s 
program lies in its ability to learn. CHECKERS had two 
ways of learning, rote and self-modification. 


In the rote learning mode, the program stored the results of 
investigations into possible moves radiating out from a 
Current board position. This meant that next time the 
position was encountered, the program did not have to 
actually go through the process of working out its implica- 
tions. The result was already there. This method, of course, 
is very memory-hungry, although highly effective. Eventual- 
ly, the program played close to championship level, and 
had ‘remembered’ practically every worthwhile board 


position. 


Samuel’s evaluation function, which made use of around 40 
factors, was mentioned a short while ago. The self-. 
modification process worked as follows. Samuel allowed 
the program to search ahead from its present position, and 
to reach a conclusion as to the value of certain moves and 
positions. The program also used its evaluation function to 
reach a conclusion from the same board position. 


Samuel reasoned that, if the evaluation function was 
perfect, it would generate the same advice as the look- 
ahead mechanism. The factors within the evaluation 
function were modified after each move, in light of the 
difference between the finding of the forward search, and 
the information given by the evaluation function. Working in 
this way removed the reliance on vast memory backup 
demanded by the rote-learning process. Our TICTAC 
program does not learn as did CHECKERS, but its method 
does involve self-modification, rather than depending upon 
rote accumulation of information. 


TICTAC — THE PROGRAM 


The program begins with an initialisation sub-routine as 
follows: 


1186 REM INITIALISATION 


11998 CLS 
129690 DIM A(%): REM BOARD 
1219 DIM M(19): REM TO HOLD KNOW 


LEDGE BASE 
1228 DIM W(24): REM WIN/BLOCK DA 


TA 


12390 DIM D(S): REM TO HOLD MOVES 
IN CURRENT GAME 
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12998 REM WIN/BLOCK DATA 
12598 FOR J=1 TO 24 


1268 READ 
1279 NEXT 
1288 DATA 
1298 DATA 
1386 DATA 
1319 REM 
BASE 

1328 FOR J=1 TO 1¢ 

1339 READ M(J) 

1348 NEXT J 

1358 DATA 2,6,8,4,7,3,1,9,5,2 
1368 RETURN 


Four arrays are dimensioned. The A array holds the current 
game board, Mholds the ‘knowledge base’ of moves (this is 
updated after each winning or losing game), W holds the 
data from which the program can recognise a potential win 
by itself or an opponent, and D holds the moves in the 
Current game, so these can be used to modify the know- 
ledge base at the end of a game. 








As you can see from line 1350, it starts off with a know- 
ledge base consisting of the numbers 2, 6, 8, 4, 7,3, 1,9, 5 
and 2. This is as | pointed out earlier, a particularly bad 
sequence of moves, which practically ensures that it will 
lose a significant proportion of its early games. If you doubt 
that, mentally put those moves onto the board were using 
in this game: 


Note that the program does not necessarily make the 
moves in the order shown. It attempts to, but may find the 
relevant square already taken. As well, it does not use its 
sequence until the pre-programmed knowledge regarding 
blocking possible completed rows of threes by the 
opponent, and trying to complete its own, has been tested. 


Watching the program learn is particularly fascinating. 
Therefore, part of the program reports to you at the end of 
game, showing you the current sequence it is storing. The 
update of the knowledge base, and its reporting to you, is 
carried by the section of the program from lines 300 to 480: 


300 REM UPDATE KNOWLEDGE BASE 
3190 FOR B=1 TQ 3s 
3290 FOR J=2 TO 9 
338 IF M(J)=D(B) THEN GO SUB 3/72 
3499 NEXT J 
5350 NEXT B 
569 GO TO 436 
378 REM ** RE-ORDER ELEMENTS OF 
M ARRAY 
5860 LET TEMP=M(J+FLAG) 
S99 LET M(J+FLAG) =M(J) 
4900 LET M(J)=TEMP 
4ig>LET J=9 
4929 RETURN 
4390 PRINT : PRINT 
4498 PRINT "THIS IS MY UPDATED P 
RIORITYT" 
458 PRINT ©: PRINT 
4690 FOR J=1 7T0 9 
4706 PRINT M(J)5" "$5 
486 NEXT J 











Z2 


Here is the evolving knowledge base of a ‘self-playing’ 
version, whose opponent was my computer's unintelligent 
random number generator. Despite the lack of concen- 
trated opposition, the program managed to learn very 
rapidly. You can see how quickly TICTAC discovers the 
value of moving into the center position (number five on our 








ENMWN HAMA ENANARNNESENNNMN ALLAN 
YUVYVANMNMMATAANAAANYNNWW AAWW 


U) CW) WU W WA AYQ™N DM W WWW WWW |] ON Pd) 
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Next, | used the final sequence obtained from the automatic 
run (except for changing the duplicated two into a one) in 
place of the starting sequence given in the complete 
program listing, and started to play against the program 
myself, trying to defeat it in every game. You can See that it 
continued to learn: 


DM WW WOW FSU OV OV 
CoO OC CO CO WH WH W WW CO 


5 
7 
6 
5 
mM 
mM 
mM 
5 
mM 


NEONNnarre 
AM PM MH PM WN PN fo 
WWWWWWWAIA7A 
YAIAQYAYAAANW Ww 
esi est esh ash ah ach as «2 = 
Nm NM PM PM A NM NP NO 


The program was modified slightly, and a new starting 
sequence, which | judged as the best | could give it, was 
entered. The computer played first against a human, with 
the following development (or lack .thereof) of its 
Knowledge base: 


7 
> 
1 
1 
1 
1 


WW UATIW = 
YAWN A WwW 
OWWWWO WO 
NM PM MP NM 
a ee a ae 
DNNANA NY 
COC OM & © 


5 
1 
3 
t 
5 
5 


It was then set to work against the random opponent. You 
can see that it has little learning to do, and appears simply 
to be shuffling a few numbers around fairly aimlessly: 


COMO DW WW DW DO WO WO WO WO LOO 


OO WOOO WO OOO OW) W—O 


atl Soll Sell Sell Sool Sool Sell alll Sell Sol So Se 


NAMM MOM OM MM MON MNMMN MN 


LIV ON NNW oe NWN DWN & WN 


ST WON em em OW Tw ew” WYN Oo =e 


Finally, | returned to the poor starting sequence, and let the 


its head against the random number 


generator. After 90 games, the sequence was as follows: 


computer have 


SUNN NNN NON ON NONONN 


NON NO DDN DAN NNN ON ON 


NNN NY NY OW OO ADV OD OW OV OV OV OV 


OwO DMA ADADDADWWHO OW WO WO OHO O 


OWMWMO WO MM MMA DW ®W WO BW WO LO 


LN TM MWMOVWO WOU MMMM MON TY 


— UN =P UN CH UY UY UNV WY UY UN UY WY UN UN 


~KeMMNarNraAathe aha eats 


Mreo~rsrtaraeewrewrterearteoe 
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You can see one weakness of this program. Although it 
does learn, after a fashion, it appears to be too easily 
persuaded to swap numbers, even though this may not 
necessarily help it play better. You may well want to work 
on the way the computer makes use of the lessons it gains 
from each game. 


| said earlier that TICTAC’s playing strategy does not come 
solely from its knowledge base. It alSo has information on 
the rows of three which it is trying to build (and which it is 
trying to prevent its opponent from completing). This is the 
section of code which looks for a move here, before using 
the knowledge base: 


2490 REM MACHINE MOVE 

2998 LET P=CODE "OQ" 

Y6H LET X=¢ 

Y/78 LET J=1i 

“80 IF A(W(J))=AC(W(I+1)) AND AC 
W(J+t2))=32 AND A(W(J)) =P THEN LE 
T X=W(J+2)°: GO TO 75d 

I9O IF AC(W(J))=A(W(I+2)) AND AC 
WC Jt1))=32 AND A(W(JI))=P THEN LE 
T XK=W(Jt+1): GO TO 752 

699 IF AC(WII+tlL) IV=A(WII+2)) AND 
A(W(J))=32 AND AC(W(J+1))=P THEN 
LET xX=W(J): GO TO 759d 

6190 IF J<21 THEN LET J=J+3: GO 
TQ 382 

6290 IF P=CODE "O" THEN LET P=CQ 
DE "AK": GO TO S72 


It looks first for a winning move for itself (when P equals the 
ASCIl code of the letter ‘‘O’’) and then tries for a blocking 
move (with P set equal to the code of the opponent’s piece, 
the “X’’). If it fails to find a move here, it brings in the data 
from the knowledge base: 
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6390 REM ** IF NO WIN/BLOCK MOVE 
FOUND THEN THIS NEXT SECTION 
6499 REM ** USED ¥* 

6990 LET J=1 

666 IF A(M(J))=32 THEN LET X=M( 








J): GO TO 75¢ 
678 IF 3<1@ THEN LET J=J+1: GO 
TO 669 


If this fails to give it a move, it tries numbers at random: 





6890 LET H=9 

6990 LET H=Htl 

706 LET X=INT (RND#E9O)+1:° IF ACX 
,=32 THEN GO TO 7359 

7198 IF H<1GG THEN GO TO 699 

726 LET RB®="D":s REM IT’S A DRAW 


Having found a move, it makes it, then acts to ensure that, if 
all positions are filled and R$ (which stands for ‘result 
String’ with it being set to “‘W” for a win, “‘L’ for a loss and 
‘‘D” for a draw) not assigned, the game must be a draw. 


PIG 
7 OD 
77O 
73D 
POD 
SID 
S1¢ 
320 
830 


REM 
LET 
LET 
LET 
= yi 
FOR 


MAKE MOVE 
A(X)=CODE "OQ" 
COUNT=COUNT +1 
D (COUNT) =x 
FLAG=9 

J=1 TO 9 


IF A(J)=32 THEN LET FLAG=1 





NEXT J 
IF FLAG=08 AND RB=*"" 


THEN LE 


T RB="D" 
849 REM IF ALL POSITIONS FULL, 
AND R® NOT ASSIGNED,IT’S A DRAW 
859 RETURN 
After each move, human or machine, the WIN CHECK 
routine is visited: 
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S870 REM WIN CHECK 

S8O LET J=1 

896 IF A(W(J))=32 THEN LET J=J+t 
3 

96O IF J>o23 THEN RETURN 

91S IF ACIWIJ)I=ACWII+1)) AND AC 
W( J) =AC(W(JI+2)) THEN GO TO 349 
929 IF J<22 THEN LET J=J+3: GO 
TO 899 

930 RETURN 

P4O IF AC(W(J))=CQDE "OQ" THEN LE 
T RB="W"t REM MACHINE WINS 

9SOG IF A(W(J))=CODE "X" THEN LE 
T RB="L"2 REM MACHINE LOSES 

9690 RETURN 


Here is the complete TICTAC program, so you can do some 


investigating 
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1d 
IGHT 

2D 
=" 
38 
49 
ra} 2] 
69 
7D 
3O 
9D 
199 








129 


of your own into machine education: 


REM TICTAC 
INK 7: PAPER 1: FLASH @: BR 
9: BORDER 1 
GO SUB 11890: REM INITIALIZE 


REM **% PREGAME SETTINGS **¥* 
FOR J=1 7O 9 

LET A(J)=32 

NEXT J 

FOR J=1 TO 3S 

LET D(J)=9 








NEXT J 
LET COUNT=9 
LET R=" " 


GO SUB 19070: REM PRINT BOAR 
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139 REM *¥*% MAIN CYCLE ¥** 

149 GO SUB 549: REM MACHINE mov 
E 

159 GO SUB 1978: REM PRINT BOAR 
D 

169 GO SUB 879: REM WIN CHECK 

170 IF RB<>"" THEN GO TO 24¢ 

188 GO SUB 986: REM ACCEPT HUMA 
N MOVE 

199 GO SUB 1978: REM PRINT BOAR 
D 

288 GO SUB 878: REM WIN CHECK 

219 IF RS="" THEN GO TO 142 

228 REM ¥% END MAIN CYCLE ¥¥* 

23D REM KHKEKKHKHK HHH HKHE HHH HK HHH 
249 REM END OF GAME 

25@ GO SUB 1978: REM PRINT BOAR 
D 

268 PRINT : PRINT 

278 IF RB="W" THEN PRINT TAB 8; 
"I WIN": FOR G=1 TO 4: BEEP .2,5 
: BEEP .1,1@: BEEP .4,9:: NEXT G 
> LET FLAG=-1 

286 IF RS%="L" THEN PRINT TAB 8; 
"YOU WIN": FOR G=1 TO 16 STEP 2: 
BEEP .1,G: BEEP .1,G+2!: NEXT G: 
LET FLAG=1 

298 IF R®="D" THEN PRINT TAB 8; 
"IT IS A DRAW": FOR G=1 TO 4: BE 
EP .2,5: BEEP .1,G: BEEP .4,9: N 
EXT G: LET FLAG=9: GO TO 439 
398 REM UPDATE KNOWLEDGE BASE 
31@ FOR B=1 TO 5 
328 FOR J=2 To 9 
33@ IF M(J)=D(B) THEN GO SUB 37 























PG 
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3499 NEXT J 


3359 


NEXT B 


369 GO T0 430 
370 REM ** RE-ORDER ELEMENTS OF 





M ARRAY %*% 

389 LET TEMP=M(J+FLAG) 
39G LET M(J+FLAG) =M(J) 
499 LET M(J)=TEMP 

419 LET J=9 

429 RET'JIRN 


432 
449 








PRINT : PRINT 
PRINT “THIS IS MY UPDATED P 


RIORITY” 





45d 
469 
478 
489 
49D 
IGD 
NUE ® 
I1¢ 
VLD 
349 
VIG 
TOG 
378 
780 


PRINT ©: PRINT 

FOR J=1 TO 9 

PRINT M(J)5" "5 

NEXT J 

PRINT © PRINT 

PRINT "PRESS ENTER TO CONTI 





INPUT AS 

GO TO 32 

REM MACHINE MOVE 

LET P=CQODE "OQ" 

LET x= 

LET J=1 

IF AC(WIJ))=ACW(I+1)) AND AC 





WI J4+2))=32 AND AC(W(J)) =P THEN LE 
T AH=W(Jt+t2): GO TO 759d 


IIB 





IF A(W(J)) =A(W(J+2)) AND AC 


W(J+1))=32 AND A(W(J))=P THEN LE 


T XEW(J+t1): GO TO 75d 


6G 


IF AC(W(J+1))=AC(W(JI+2)) AND 


A(W(J))=32 AND A(W(JSJ+1))=P THEN 
LET X=W(J): GO TO 752 


30 


619 


IF J<21 THEN LET J=J+3: GO 


TO S8d 


6209 
DE 
639 


FOUND THEN THIS 


6496 
652 
669 
J): 

679 


2 


IF P=CODE "Q”" 
GO TO 372 
REM *% IF NO WIN/BLOCK MOVE 
NEXT SECTION#¥*® 
REM *¥* USED ** 

LET J=1 


IF AC(M(J))=32 THEN LET X=M¢ 


THEN LET P=CO 


GO TO 759 


IF J<1@ THEN LET J=J+1: GO 


TO 669 


689 
69D 
42} 7) 
)=32 
716 
226 
PIB 
7 OD 
776 
78D 
POD 
SOP 
S19 
820 
830 


LET H=2 

LET H=H+ i 

LET X=INT (RND¥9) +1: 
THEN GO TO 759 

IF H<C19G@ THEN GO TO 696 

LET RB="D": REM IT’S A DRAW 
REM MAKE MOVE 

LET A(X) =CODE "0" 

LET COUNT=COUNT +1 

LET Dt(COUNT) =x 

LET FLAG=0 

FOR J=1 TO 9 

IF A(J)=32 THEN LET FLAG=1 
NEXT J 

IF FLAG=@ AND RB="" 


IF ACxX 





THEN LE 





T RS="D" 


840 


REM IF ALL POSITIONS FULL, 


AND R® NOT ASSIGNED,IT’S A DRAW 


859 
S69 
3/7D 
8380 
S96 


RETURN 

REM KEEKKKKKKKKEKKEKEK 

REM WIN CHECK 

LET J=1 

IF AC(W(J))=32 THEN LET J=Jt+t 








POO 


91GB IF AIW(J) I =AIW(I+1)) 
WIJ) )=AC(W(I+2)) 


IF J>23 THEN RETURN 
AND A‘ 
THEN GO TO 94¢ 


9290 IF J<22 THEN LET J=J+3: GO 
TO 890 
938 RETURN 


94D 


T R&="W": 


93D 


T RS="L": 


POD 
97D 
93d 
PID 
1696 
1919 
1626 


IF A(W(J))=CODE "O" THEN 
REM MACHINE WINS 

IF A(W(J)) =CODE "XK" THEN 
REM MACHINE LOSES 
RETURN 

REM KKKHKHHKKKKHEKKKEK 

REM HUMAN MOVE 

PRINT =: PRINT 

PRINT “Enter your move." 
INPUT MOVE 


IF MOVE<1 OR MOVE>9 THEN 


LE 


LE 


GO 


TO 19019 


1032 
G1P 

19499 
19359 
1969 
19/7D 
1989 
1992 
11909 





(1)5” 


(3) 


1126 PRINT 


IF A(MOVE)<>32 THEN GO TQ 1 


LET a(MOVE) =CODE 
RETURN 
REM KEKKEKKEKKKHKKKKEKKEKKKE 


ee 


REM PRINT BOARD 
CLS 
PRINT © PRINT : PRINT 
PRINT "1 °: 2 2: 3 "3CHRS A 
> sCHRB Al2)5" © "SCHR A 
LAA PAE OT Ser eeemekse ee eee eran 
"43: 35 : 6 "3CHRS A 
> "S$ CHRB A(S)35" 3 “SCHR A 


(4)5” 


(6) 
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1136 PRINT " 





11949 PRINT "7? 3; 8: 9 "s3CHRS A 
(7d)5" © "SCHRS A(S)3" =: "3$CHRS A 
(9) 

11506 PRINT 

1169 RETURN 

LIPD REM KEKHKHKKKKKHHKKHK HK HHH 
1169 REM INITIALISATION 

1199 CLS 

129060 DIM A(9): REM BOARD 

12190 DIM M(19): REM TO HOLD KNOW 


LEDGE BASE 

1228 DIM W(24): 

TA 

1238 DIM D(5): REM TO HOLD MOVES 
IN CURRENT GAME 


REM WIN/BLOCK DA 


1246 
12598 
1269 
12/70 
1289 
1298 
1309 


REM WIN/BLOCK DATA 
FOR J=1 TO 24 


READ 
NEXT 
DATA 
DATA 
DATA 


W( J) 


8,3,6,9 
? 


1310 REM KNOWLEDGE 
BASE 
1329 
13390 
1349 
13359 


1369 


FOR J=1 TO 1¢ 
READ M(J) 

NEXT J 

DATA 2,6,8,4,7,35;1,9,5,2 
RETURN 


If you wish to experiment with an automatic, random 


opponent, you might want to use the following one, which | 
used for this section of the book: 
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4500 REM RANDOM HUMAN MOVE 

94510 LET H=€ 

93526 LET H=Htl 

453m) LET MOVE=INT (RND¥9+1) 

49546 IF A(MOVE)=32 THEN LET ACrHO 
VE)=CODE "X": RETURN 

4550 IF H<i9@@ THEN GO TQ 4529 
435690 LET R®="D" 

435760 REVUR®™ 


To trigger this unintelligent, tireless opponent, simply 
replace line 140 with GOSUB 4500. 


, “f0,, 
QO ° @ 
+ * ‘ rN 

O° —“.__ ' O 

K * 4 OO, o™ 
: “x 
KS - 0 
QQ ° 
O: 
igs a, 
QO - oS 
~~ “yy 
QO. ™ 
x: 
X 
Xs 
os, 
_* oN 
+" 9 oe a’ 
oO” vs 
. 0. 
9 + a Q 
. O " QO, 
a 
°- O ~ 








WHICH REASONS 


From a program which learns, we move to SYLLOGY, a 
program which reasons. Given two related statements, 


SYLLOGY is capable of deducing a third statement which 
contains information which was not explicitly stated. 


The program works with syllogisms. A syllogism is a form of 
deductive argument. Aristotle worked out the rules which 
determine the validity of a syllogism. It generally takes the 


following form: 





A is abB 
Cis an A 
Therefore C is aB 


The first two lines of a syllogism are propositions, while the 
third line is a conclusion. 


A dog is an animal 
An animal is furry 


Therefore, a dog is furry 


Before we discuss the program, and the background to it, in 
detail, we will show it at work. ignore the material in 


parentheses before the conclusion, as this is included so 


that you can see the program actually working. Youll 
understand what this material is once you have followed 


through the explanation of the program. 
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The ‘?’ prompt appears when SYLLOGY is waiting for an 
input. ‘> OK’ appears when the program has accepted and 
understood your input. 


? AN EAGLE IS A BIRD 
> OK 


? A BIRD IS A WINGED CREATURE 
> OK 


? IS AN EAGLE A WINGED CREATURE 
(LOOKING FOR EAGLE) 


( FOUND AT 1 1 ) 
> YES 


? 


As the program runs, it builds up a database of proposi- 
tions, which it can refer to any time within that run. Here is 
the next pair of propositions we tried: 


? A BIRD IS A FLYER 
> OK 


? IS AN EAGLE A FLYER 
(LOOKING FOR EAGLE) 
( FOUND AT 1 1 ) 
> YES 


? IS A FLYER A WINGED CREATURE 


(LOOKING FOR FLYER) 
( FOUND AT 1 4 ) 
> YES 
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SYLLOGY will accept, to add to its database, any 
Statement of the following form: 


A... isa... 


This statement can include ‘an’ or ‘th’, as the language 


parsing iS programmed to cope with them. Therefore, the 


following are valid, although the program cannot cope with 
a the’ after the ‘is’ in the middle of the sentence: 


An oe 9s ®@ 1S @ee. 
The ... iS an... 


The program goes into its ‘deductive mode’ if you start a 
sentence with ‘is: 


Is ... a ee. 
IS aM 2.226 A eee 


If you simply press the RETURN Key, without entering any 
input, the program will terminate (although it may be 
restarted, without loss of data, by GOTO 30). 


Entering a question mark when the prompt appears will 
allow you to discover what SYLLOGY is holding in its 
memory, under each category heading it has created. After 
you enter the questionmark, the program will ask 
“SUBJECT TO CHECK?’. At this point you enter the 


category heading you wish the program to investigate: 


? ? 


SUBJECT TO CHECK? BIRD 
¢ e EAGLE 


3 2 WINGED CREATURE 
4 e2 FLYER 


3/7 


? ? 


SUBJECT TO CHECK? EAGLE 
¢ 1 BIRD 


2? ? 


SUBJECT TO CHECK? WINGED CREATURE 
2 3 BIRD 


? ? 
SUBJECT TO CHECK? FLYER 
e¢ 4 BIRD 


SYLLOGY will often produce surprising conclusions, which 
fly in the face of all the evidence we (meaning |) can bring 
to bear: 


? TIM IS A FOOL 
> OK 


? A FOOL IS AN IDIOT 
> OK 


? IS TIM AN IDIOT 
(LOOKING FOR TIM) 


( FOUND AT 1 1 ) 
> YES 


? ? 
SUBJECT TQ CHECK? TIM 


2 1 FOOL 


? ? 


SUBJECT TO CHECK? FOOL 
2 e2 TIM 
3 e2 IDIOT 





? IS TIM A CROW 


(LOOKING FOR TIM) 
( FOUND AT 1 1 ) 
> NO 


? IS A CROW A FOOL 


(LOOKING FOR CROW) 


( FOUND AT 1 6 ) 
> YES 


SYLLOGY works with a two-dimensional string array, Z$, 
cross-referencing the propositions entered into it, and from 
this cross reference producing conclusions. 


This is fairly easy to understand if you visualise what is 
happening as you enter statements. If we type in TIMIS A 
FOOL the program ignores the IS A and uses TIM as a file 
heading, and puts FOOL underneath that. A second state- 
ment of the type A FOOL IS AN IDIOT allows the program to 
open up a new file headed FOOL which has IDIOT 
underneath it. When the program is asked IS TIM AN IDIOT 
it first looks to see if it has a category called TIM. On 
finding it has, it looks under that for the first subject filed. It 


comes across FOOL. 


39 


information stored on the first noun in the question. If it finds 
ithas, SYLLOGY repcrts this to you (LOOKING FOR EAGLE 
FOUND AT 1,1) then looks down that row for the words 
stored under it. It finds BIRD (at 2,1) and then returns to the 
first row to find FLYER. It discovers it at 1,4 and scans down 
that row to find BIRD (at 2,4). It has now found a common 
link (BIRD) between the two words it Is thinking about 
(EAGLE and FLYER) and can therefore conclude that the 
answer to the question IS AN EAGLE A FLYER is. in fact. 
YES. SYLLOGY then tells you what it has concluded. 


BACK TO THE PROGRAM 





Here's the start of SYLLOGY where the program processes 
the user input. Line 40 sends action to 910 if a question 
mark has been entered. 





190 REM #¥¥ SYLLOGY XH 


15 POKE 23658,2908: FLASH @: BR 
IGHT @: CLS : PAPER 1: BORDER 1: 
INK ? 


29 GO SUB 19590: REM INITIALIZA 
TION 


59 PRINT ©: INPUT AS 

35 LET QS=AS 

40 IF AtG="?" THEN GO TO 919 
98 IF LEN AS<2 THEN STOP 

606 LET FLAG=2 


7@ REM NOTE THERE IS A SPACE B 
EFORE THE CLOSE QUOTE IN NEXT FO 
UR LINES 


“7S IF LEN AS<3 THEN GO TO 119 
SA IF AS( TO 3)="IS "* THEN GC 


TO 4890: REM CONCLUSIONS 
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SS IF LEN AS<4d THEN GO TO 1998 

9G IF ASC TO 4)="THE " THEN LE 
T AS=ASB(5 TO ) 

19090 IF AS( TO 3)="AN " THEN LET 
AS=AG(4G TO ) 

1190 IF AS( TO 2)="A " THEN LET 
AS=AS(3° TO ) 

126 LET X=LEN AS 

130 LET N=9 

14960 LET N=N+1 

1590 IF AS(N)=" "“ THEN LET BSt=AS 
{ TO N-1): GO TO 1898: REM EXTRAC 
TS THE FIRST NOUN 

1690 IF N<x THEN GO TO 149 

170 INK 3S: PRINT "I don’t under 
stand": INK 7: GO TO 39d 

180 LET K=4 

199 IF AS(N4+1 TO Nt2)="W" THEN 
LET K=5 

269 LET CS=AS(Nt+K TO ): REM QUA 
LIFY PHRASE 

21906 IF LEN C#<2 THEN GO 70 229 
2ii IF C#( TO 2)="A “* THEN LET 
C$#=C$(3 TO ): REM REMOVES ARTICL 
E 

2290 IF LEN C#<¢3 THEN GO TO 239 
221 IF C#( TQ 3)="AN * THEN LET 
CH=CE(4G TO ) 

2308 IF LEN C#%<¢=3 THEN GO TQ 2496 
231 IF C#8( TO 4)="THE " THEN LE 
T CH=CH(S TO ) 
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information stored on the first noun in the question. If it finds 
ithas, SYLLOGY repearts this to you (LOOKING FOR EAGLE 
FOUND AT 1,1) then looks down that row for the words 
Stored under it. It finds BIRD (at 2,1) and then returns to the 
first row to find FLYER. It discovers it at 1,4 and scans down 
that row to find BIRD (at 2,4). It has now found a common 
link (BIRD) between the two words it is thinking about 
(EAGLE and FLYER) and can therefore conclude that the 
answer to the question IS AN EAGLE A FLYER is, in fact, 
YES. SYLLOGY then tells you what it has concluded. 


BACK TO THE PROGRAM 





Here's the start of SYLLOGY where the program processes 
the user input. Line 40 sends action to 910 if a question 
mark has been entered. 


19 REM ¥¥*¥ SYLLOGY ¥#* 


15 POKE 23658,299: FLASH @: BR 
IGHT @: CLS : PAPER 1: BORDER 1: 


INK 7? 

26 GO SUB 193590: REM INITIALIZA 
TION 

59 PRINT : INPUT AS 





35 LET QS=AS 


40 IF AS="?" THEN GO TO 9Y1¢ 
98 IF LEN AS<2 THEN STOP 


690 LET FLAG=9 


76 REM NOTE THERE IS A SPACE B&B 
EFORE THE CLOSE QUOTE IN NEXT FO 
UR LINES 


7O IF LEN AS<3 THEN GO TO 112 
SO IF AS( TO 3)="IS " THEN GC 


TO 4890: REM CONCLUSIONS 
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S83 IF LEN AS<4d THEN GO TO 1989 

PO IF AS( TO 4)="THE " THEN LE 
T AS=AB(S TO ) 
196 IF AS( TO 3)="AN " THEN LET 
AS=AS(4G TAO ) 
1190 IF AS( TO 2)="A " THEN LET 
AS=AG(S TO ) 

126 LET X=LEN AS 

130 LET N=9 

1499 LET N=N+1 

1398 IF AS(N)=" " THEN LET BS=AS 
( TO N-1): GO TO 1898: REM EXTRAC 
TS THE FIRST NOUN 

169 IF N<x THEN GO TO 1492 

170 INK 3S: PRINT "I don’t under 
stand”: INK 7: GO TO 32 

1896 LET K=4 

1990 IF AS(N4t1 TO Nt2)="W" THEN 
LET K=s5 
266 LET CB=AS(Nt+K TO ): 
{IFFY PHRASE 

2196 IF LEN C#%<2 THEN GO TO 229 
Z2ii IF CS TO 2)="A * THEN LET 
C$=C#(3 TO ): REM REMOVES ARTICL 
E 

226 IF LEN C#<3 THEN GO TQ 239 
22i IF C#( TO 3)="AN " THEN LET 
CH=CH(49 TO ) 

238 IF LEN C#%<=3 THEN GO TO 249 
231 IF C#( TO 94)="THE " THEN LE 
T CB=CH(S5 TO ) 











REM QUA 
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Line 80 detects the ‘IS’ at the start of the input, indicating 
that the user is asking SYLLOGY to try and reach a con- 
clusion. This sends action to 480, where the conclusion 


routine begins. 


Lines 90, 100 and 110 strip THE, AN or A from the front of 
the input, so that A$ now begins with the noun which will be 


used to head a file. 


The next routine, from 120 to 230, splits the input up into 
two words, with lines 120 to 160 getting the first noun, and 
triggering |DON'’T UNDERSTAND (from line 170) if the input 
is not in accord with the specified format. Lines 180 
through to 230 extract the second word. Line 190 checks 
to see if the phrase which is left after the first noun has been 
Stripped starts with “‘W” and, if it does, assumes the center 
word is ‘WAS’ ”’. This allows it to accept phrases such as: 


THE DODO WAS A BIG BIRD 
and 


TIM IS AN IDIOT 


Having extracted the important words (and having set B$ to 
the first one and C$ to the second) the program proceeds 
to store them in its database. Remember, this section of 
code is only used for ‘laying down’ information. Taking it up 
again is looked after by the ‘reach a conclusion’ section of 
the program. 


The program next looks across the top of its file table, to 
see if (a) it already has a file on that subject, and if not (b) it 
has a space left in which to start such a file. If there is no 
Space left, the message in line 310 | HAVE NO MORE 


SUBJECT STORAGE ROOM is triggered. 


£49 REM *¥* STORE INFORMATION *¥ 
2029 REM ** FIRST CHECK TO SEE 
IF IT CAN FIND SUBJECT BEFORE 
FINDING BLANK ¥# 

269 LET N=o0 

2/79 LET N=N+i1 

2306 IF 2$(1,N, TO LEN B#)=BS TH 
EN GO TO 328: REM SUBJECT HEADIN 
G EXISTS 

29OG IF ZE(1,N, TO §)=" " TH 
EN LET 28(1,N)=BS: GO TO 329 

396 IF N<¢25 THEN GO TO 276 

S1@ INK 2: PRINT "I have no mor 
e subject storage room": INK 7 








The next routine, from 320, is reached once the program 
has either discovered it already has a file (line 280) or has 
found room to create a file and has, in fact, done so (line 


290). 
328 REM *¥% PROGRAM REACHES HERE 
WITH SUBJECT STORED AS HEADING 





KX 
3390 REM #*#%* NOW PUT OBJECT UNDER 
THIS ¥+# 


349 LET K=0 

3590 LET K=K+t+1 

3690 IF 2Z6(K,N, TO LEN C%)=CS% TH 
EN GO TQ 448: REM INFORMATION AL 
READY STORED UNDER THAT HEADING 

378 IF Z6(K,N, TO 3)=" " TH 
EN LET 28(K,N)=CS%: GO TO 496 

388 IF K<¢25 THEN GO TO 359 

3996 INK S: PRINT "I have no mor. 
e object storage space.”": INK 
7? 
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490 IF FLAG=1 THEN PRINT QS: IN 
K S: PRINT TAB 63"> Ok.": INK 7: 

GQ TO 34: REM SWAP HAS BEEN DON 
E 

419 REM *¥*¥ NOW SWAP OBJECT AND 
SUBJECT AND SAVE AGAIN ¥* 

426 LET FLAG=1 

4390 LET MS=BS 

44990 LET BS=CS 

450 LET CS=MS 

466 GQ TQ 252 


There is no need for SYLLOGY to store EAGLE under BIRD 
more than once, even if the line AN EAGLE IS A BIRD is fed 
to the program more than once. Line 360 ensures that 
duplication definitions are not saved. Once the ‘object’ has 
been saved, the computer swaps subject and object (lines 
420 through to 450) and then saves them the other way 
around. That is, if it saved EAGLE as a Subject heading 
before, with BIRD underneath it, this time it saves BIRD with 
EAGLE as one of the file contents. 


Now we come to the really interesting part (at least in 
terms of performance when SYLLOGY is running), the 
section which reaches conclusions: 


4890 REM *¥*¥*% CONCLUSIONS 

4990 REM * FIRST SPLIT INPUT * 
990 LET HS=-AS: LET ASG=AS(G TO ) 
: REM STRIP IS 

M190 IF AS( TO 2)="A " THEN LET 
AS=AS(3 TO )3 REM STRIP A IF PRE 
SENT 

Y20 IF AS( TO 3)="AN " THEN LET 
AS=AS(9 TO ): REM STRIP AN IF P 
RESENT 
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I3G 


REM * GET FIRST WORD IF PRE 





SENT - FS ¥& 

~“490 LET X=LEN AS 

~2U8 LET N=9 

9690 LET N=N+i1 

YI7G IF AS(N)=" " THEN LET F#=AS 
( TO N-1): GO TO 692 

Y8O IF N<xX THEN GO TO 3624 

299 PRINT TAB 63 INK 335"I do no 


t understand?" s: 





GO TO 32 


Firstly the leading IS is stripped from the input, along with A 
(line 510) or AN (line 520) if these are present (this means 
it can deal with IS AN EAGLE A BIRD as well IS TIM AN 
IDIOT). This section of code gets the first word, and sets it 
equal to F$. The next section extracts the second word, to 
set it equal to S$. 


6866 REM ¥ NOW GET SECOND WORD - 
SH * 

619 LET SB=AB(N+3 TO ). 

628 IF LEN S#%<=8 THEN GO TO 639 

621 IF S#(1)=" " THEN LET S%=S% 











(2? TO ): REM STRIPS LEADING ZERO 
S IF WAS "AN" 

630 PRINT H%®’ TAB 93 INK 33 "(Loo 
king for "s$F%3")”" 

64990 LET x=9 

650 LET X=Xt1l 

668 IF 28(1,X, TO LEN F#%)=FS TH 
EN PRINT TAB 1983 INK S33"C¢ Found 
at 1,"3x3")": GO TO 7668 

6708 IF X<25 THEN GO TO 63539 


660 PRINT TAB 6$ 
t find the subject": 


54% 


INK 5:"I canno 
PRINT TAB 8 


698 GO TQ 3d 
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The program lets you know what it is looking for (printing 
up LOOKING FOR ‘first word’ in line 630) and if it finds it, 
tells you where in the table it was located (FOUND AT... 
in line 660). If it cannot find the second word it informs you 
of this (line 680) then returns to the main program. This line 
is triggered if, for example, you asked it IS TIM A GENIUS 
and it had not previously encountered the word GENIUS. 




















78S LET Y=1 

7i@ LET Y=Yri1 

729 IF 28S(Y,X)=SS THEN INK 5: P 
RINT TAB 63"> Yes": INK 7: GO TO 

30 

739 IF Y¥C<25 THEN GO TO 71¢ 

7499 LET Y=1 

79098 LET Y=Yri 

769 LET PS=28(Y, X) 

776 LET M=¢ 

789 LET M=M+i1 

799 IF 26(1,M)=PS% THEN GO TO 83 
4.) 

899 IF M<25 THEN GO TO 78¢E 

8198 IF Y<25 THEN GO TO 759 

S290 PRINT TAB 6$ INK 53;"> No": 


GO TO 39g 
839 LET @=1 
849 LET Q=Qt1 
S58 IF Z%(Q,M, 
EN PRINT TAB 63 
0 TO 39 
868 IF @<25 THEN GO TO 84¢ 
878 IF M<25 THEN GO TO 789 
888 GO TO 82g 


TO LEN S%)=S% TH 
INK 3S3;"> Yes": G 
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Our next section of code reaches conclusions. The first bit, 
from 700 to 730, says YES if the question you asked was 
exactly in the form you originally gave it some information. 
That is, if you had asked IS AN EAGLE A BIRD and earlier 
you had told it explicitly AN EAGLE IS A BIRD, this first part 


would discover this, and tell you YES. 











The next section, from 710 right through to 800, searches 
to find the word using the method outlined earlier, reaching 
either a YES (line 850) or a NO (line 820) conclusion. 


9190 REM CHECK CONTENTS OF 
PARTICULAR FILE 
929 INK 5S: INPUT "SUBJECT TO CH 
ECK "3;H®: PRINT "Subject to chec 
k? "SHS 
930 INK 7: LET T=9 


949 LET T=Ttl 
959 IF Z$(i1,T, TO LEN H%#)=H® TH 


EN GO TQ 999 
969 IF T<25 THEN GO TO 949 


97GB PRINT INK 5S3"I have no data 
stored on ";HS 

9380 GO TO 3d 

999 LET K=1 

19090 LE K=K+tl 

I19@ig@ IF Z%(K,T, FTO 3)<>"* 
HEN PRINT INK S3K3" "3735" "5 
K, 7) 

1928 IF K<¢25 THEN GO TO 19986 
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1d 
1S 
IGHT 
INK 
26 
TION 
30 
35 
40 
IPG 
66 














Now, here is the complete listing of SYLLOGY, so you can 
reach a few conclusions of your own. 





KEE 
FLASH @: BR 
BORDER 1: 


REM **#% SYLLOGY 
POKE 23656, 299: 
@: CLS : PAPER 1: 
7 

GO SUB 1959: 








REM INITIALIZA 











PRINT ©: INPUT AS 
LET QS=AS 
IF AS="?" THEN GO TO 919 


IF LEN AS<2 THEN STOP 
LET FLAG=9 














7O REM NOTE THERE IS A SPACE B 
EFORE THE CLOSE QUOTE IN NEXT FO 
UR LINES 

73 IF LEN AS<K3 THEN GO TO 119 

SO IF AS( TO 3)="1IS * THEN GO 
TO 486: REM CONCLUSIONS 

SS IF LEN AS<4 THEN GO TO 199 

PH IF ASC TO 9)="THE * THEN LE 
T AS=AS(5 TO ) 

199 IF AS( TO 3)="AN " THEN LET 
AS=AS(4 TO ) 

1190 IF AS( TO 2)="A " THEN LET 
AS=AS(3 TO ) 

126 LET X=LEN AS 

1390 LET N=0 

146 LET N=N+til 

1590 IF AS(N)=" " THEN LET BS=AS 


( TO 








N-1): GO TO 188: REM EXTRAC 


TS THE FIRST NOUN 
160 IF N<xX THEN GO TO 149 


00 


176 INK 5S: PRINT "I don’t under 
stand": INK 7: GO TO 3¢ 

180 LET K=4 

1990 IF AS(N4+1 TO N+2)="W" THEN 
LET K=S5 

2690 LET CB=AS(Nt+K TO ): REM QUA 
LIFY PHRASE 

2190 IF LEN C%#<2 THEN GO TO 229 
211 IF CS( TO 2)="A * THEN LET 
C$=CH(3 TO )2 REM REMOVES ARTICL 
E 

226 IF LEN C#%<¢3 THEN GO TO 2392 
222i IF CS%( TO 3)="*AN * THEN LET 
CSB=CE(4G TO ) 

2390 IF LEN C#<=3 THEN GO TO 2499 
233i IF C#( TO 4)="THE "“ THEN LE 
T CB=CH(S5S TO ) 

2499 REM *¥¥ STORE INFORMATION *# 

229 REM *##* FIRST CHECK TO SEE 
IF IT CAN FIND SUBJECT BEFORE 
FINDING BLANK *# 

2696 LET N=0 

2/786 LET N=Ntl 

280 IF 2Z2$(1,N, TO LEN BS) =BS TH 
EN GO TO 3290: REM SUBJECT HEADIN 
G EXISTS 

29G IF Z8(1,N, TO 3)=" " TH 
EN LET 28$(1,N)=B%: GO TO 329 

300 IF N¢C25 THEN GO TO 2/76 

3190 INK 2: PRINT “I have no mor 
e subject storage room": INK 7 

32G REM ¥*%* PROGRAM REACHES HERE 
WITH SUBJECT STORED AS HEADING 
HK 

33G REM **® NOW PUT OBJECT UNDER 

THIS # 














o 1 


3490 LET K=9 

359 LET K=K+ti 

369 IF 2Z26$(K,N, TO LEN C%®)=CS TH 
EN GO TO 496: REM INFORMATION AL 
READY STORED UNDER THAT HEADING 
378 IF ZS(K,N, TO 3)=" " TH 
EN LET 2Z28$(K,N)=C#%: GO TO 492 

388 IF K<¢25 THEN GO TO 359 

3998 INK 3S: PRINT "I have no mor 
e object storage space.": INK 
7 

469 IF FLAG=1 THEN PRINT QS: IN 
K S: PRINT TAB 63"°> Ok.":s INK 7: 
GO TO 306: REM SWAP HAS BEEN DON 
E 

4190 REM *¥ NOW SWAP OBJECT AND 
SUBJECT AND SAVE AGAIN ¥* 
4296 LET FLAG=1 
4390 LET MS$=BS 
4490 LET BS=CS 
4590 LET CS=MS 

49690 GO TQ 259 

4896 REM ¥#¥% CONCLUSIONS *#* 

9990 REM * FIRST SPLIT INPUT *¥ 
996 LET HSB=AG: LET AB=ASH(G TO ) 
> REM STRIP IS 

VIG IF AS( TO 2)="A " THEN LET 
AS=AS(3 TO ): REM STRIP A IF PRE 
SENT 

YV206 IF AS( TO 3)="AN " THEN LET 
AS=AS(G TO ): REM STRIP AN IF P 
RESENT 

2390 REM * GET FIRST WORD IF PRE 
SENT - FS ¥ 

"490 LET X=LEN AS 

vudG LET N=9 
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VO6PG 
07D 
( TO 
I8d 
29D 


t understand?” : 





696 
SH * 
619 











LET N=N+1 

IF AS(N)=" " THEN LET FS#=AS% 
N-1): GO TO 699 

IF N<xX THEN GO TO 569 

PRINT TAB 63 INK S35 "I do no 
GO 10 32 

REM * NOW GET SECOND WORD - 














LET S®=AS(Nt+3 TO ) 














6206 IF LEN S#%<=08 THEN GO TO 634 
621 IF SB¢(1)=" " THEN LET S#=SS% 
(2 TO ): REM STRIPS LEADING ZERO 
s IF WAS "AN” 

6308 PRINT HS’ TAB 935 INK 33" (Loo 
king for "3sF%5")" 

640 LET X=9 

6590 LET X=X+t1 

660 IF 2%(1,X, TO LEN F#®)=FS% TH 
EN PRINT TAB 183; INK 33"(¢ Found 
at 1,"3x$")": GO TO 7/928 

676 IF X<25 THEN GO TO 65¢ 

686 PRINT TAB 63 INK 533; "I canno 
t find the subject*: PRINT TAB 8 
5+ 

698 GO TQ 3d 

7AG LET Y=1 

7i1i@ LET Y=¥+ri 

726 IF 26(Y,xX)=SS THEN INK 3S: P 
RINT TAB 63"> Yes": INK 7: GO [TO 
328 

73G IF Y<25 THEN GO TO 719 

749 LET Y=!1 

756 LET Y=Yr!l 

768 LET PB=Z2ZS(7,%) 

7706 LET M=P0 

7808 LET M=M+1 
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799 IF Z%(1,M)=P% THEN GO TO 83 
g 





8600 IF M<25 THEN GO TO 789 

S819@ IF ¥Y<25 THEN GO TQ 7359 

826 PRINT TAB 63 INK S35 "> No": 
GO TO 3d 

S30 LET Q=1 

S490 LET G=Q+til 

8358 IF 2$(Q,M, TO LEN S%$)=S% TH 
EN PRINT TAB 63 INK 33 "> Yes": G 
O TO 38 

S68 IF Q<¢25 THEN GO TO 842 

S78 IF M<25 THEN GO TO 789 

S89 GO TQ 829 

PGD REM KHHEKEHKKKHEKKEKHKKEKKKKKEK 
91d REM CHECK CONTENTS OF 

PARTICULAR FILE 

9296 INK 3S: INPUT "SUBJECT TQ CH 
ECK "Z;HS: PRINT "Subject to chec 
k? "SZ HS 

930 INK 7: LET T=90 

9490 LET T=Trt 

950 IF 2Z28(1,7T, TO LEN H®) =HS TH 
EN GO TO 9¥9S 

9660 IF T<25 THEN GO TO 94¢ 
9/798 PRINT INK 33"°I have no data 
stored on "§HS 

989 GO TO 3d 

9990 LET K=1 

1990 LET K=Kti 

IG1O IF 26$(K,T, TO 5)<¢>" » | 
HEN PRINT INK S3K3" "3T3" "3 28¢ 
K, 1) 

1920 IF K<25 THEN GO TO 1998¢ 
1930 GO TO 38 











04 


1GP4D REM IEEE 
1959 REM INITIALIZE 

1968 CLS 

1989 DIM 2%(25, 25,27) 
199G RETURN 


25 
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In this section of the book, we will develop a checkers-like 
program called SNICKERS. We will use it to discuss some 
ideas of tree-searching, in which the computer behaves 
with a degree of intelligence by searching along lines of 
related options, and then from these chooses that which it 
judges to be the best action. 


Searching through trees of options in this way is common 
to most problem-solving programs. Modifications, many of 
them most important ones, such as ‘pruning’ the tree to 
save following worthless branches at all, or to follow other 
branches to an unnecessary depth, are nearly always used 
in tree-searching to stop the process from taking an 
inordinate amount of time, but the basic idea of the tree 
search is still fundamental to problem-solving. 


WHY IS IT CALLED A TREE? 





A search tree grows like any other tree, apart from being 
upside down. Take A in the following diagram as the 
Starting point for the search. The ‘branches (labelled B, C 
and D) going off it represent valid decisions (or legal 
moves, if the program is tackling a game). The smaller 
branches radiating from these (E, F and so on) are implica- 
tions of following that branch. 





E F G H I J K L M 


If the tree represents a move-finding mechanism in a chess 
game, for example, the A may represent the movement of a 
particular Knight. The program then follows through the 
implications of that move. B assumes, let us say, that 
moving this knight puts one of the opponent's pieces under 
attack. Response E its the opponent simply backing this 
piece away, F may be supporting the threatened piece with 
another one, and G may be capturing the offending knight. 
EF and G would further split, into N,O...andso on, which 
would cover the possible responses to each action. 


You can see that the search would rapidly escalate, and 
the options being considered would reach astronomical 
proportions, unless there was some means of guiding the 
search. Only in a very simple program, such as one which 
played Noughts and Crosses, could a program examine 
every branch of every tree, before choosing the best move. 


For other programs, a branch can be examined to a pre- 
determined depth (and we'll be discussing depth shortly) 


instead of to the end, and the result of that examination 
stored. 


‘PARALLEL PROCESSING’ 


Another approach would be to examine a short distance 
down one branch, then back up and start another branch, 
and so on, and then examine the more promising branches 
to a greater depth. A branch, for example, which assumed 
the opponent in a chess game would sacrifice the queen to 
Capture a pawn, would not merit further examination. Any 
branch which led the opponent — in the opinion of the 
program's evaluation mechanism — to weaken his or her 
position could be abandoned the moment this discovery 
was made, and processing time and effort put into following 


more promising leads. 


When developing your own Al programs, it is worth starting 
to think about them in terms of search trees, as it Is likely 
that they will involve this in some way. The tree may grow 
quite frighteningly, especially if you are not working in a 
tightly-restricted domain (such as we do in BLOCK- 
WORLD), or you are not too clear as to the criteria by 


which your program could be making choices. 


We have developed a checkers-like game, called 
SNICKERS, for this section of the book, in order to 


demonstrate some aspects of primitive tree-searching. 
Naturally enough, you need to know how to play the game 
in order to understand the discussion about it. We'll look at 


snapshots from a completed game in due course, but for 
now, we only need to see the first few moves. 
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Here’s what the board looks like at the start of the game: 





COMPUTER: 0O 


12345678 





12345678 


The score (currently zero) for both the machine and the 
human is printed above the board. Each player starts with 
eight pieces (as opposed to 12 in checkers). The 
Computer’s pieces are at the top of the board (the C’s) and 
the human’s are at the bottom (the Hs). The computer is 
playing down the screen, and the human ts playing up it. 


The dots represent the black squares on a checker-board. 
The pieces move as in checkers, that is diagonally from 
black square to black square. Each piece, then, !s actually 
‘sitting on’ a dot which will only be revealed when the piece 
is moved. Each of the dots represents a position to which a 
piece can be moved. 


As | said, each piece moves like checkers’ pieces. 


diagonally. Captures in SNICKERS are carried out in a 
familiar way, by leaping over an enemy piece into a vacant 
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Square beyond. However, in contrast to checkers, there are 
no multiple jumps in this game. 





VANISHING ACTS 


The aim of the game is to get a score of five before the 
opponent does so. There are two ways to score a point. 
One way, predictably enough, is to capture an enemy 
piece. The other way is to reach the back row on the 
opposite side of the board. In checkers, this would result in 
the piece being ‘crowned’, or turned into a king with the 
ability to move backwards and forwards at will. In 
SNICKERS, the piece vanishes on reaching the opposite 
back row (which means, among other things, that you 
cannot have either kings in SNICKERS, nor pieces moving 


‘backwards’ on the board). 


lf you leap over an enemy piece, and end up after that 
Capture on the opposite back row, youll get two points, 
rather than one. You'll see this occurring in our sample 
game in due course. The computer will tell you the moves it 
iS considering at each point in the game, So you Can See its 
machine intelligence at work. At the beginning of the game, 
shown in the board printed a little earlier, there are seven 
possible opening moves. The computer finds each legal 
move, then prints up the moves on the screen, before 
making the move, as follows (with the numbers themselves 
being worked out by specifying the number down the 
edges of the board first, followed by the number across the 


top or bottom): 


I AM CONSIDERING 71 TO 62 
I AM CONSIDERING 73 TO 64 


6 1 


CONSIDERING 73 TO 62 
CONSIDERING 75 TO 66 


CONSIDERING 75 TO 64 
CONSIDERING 77 TO 68 
CONSIDERING 77 TO 66 
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The numbers printed here by the computer refer to those 
within a master array which holds the board inside the 
computer. This is the numbered board the computer uses In 


SNICKERS: 


2 
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You ll see that the numbering is not consecutive, and does 
not even start from one. However, this board is much easier 
to use, in computer terms, than is one in which only the 
black squares are numbered from one to thirty-two. 


A computer needs to know where the edges of the board 
are, and the ‘missing’ numbers supply it with that 
information. For example, if it tries to move from 48 to 59, 
the value held by element 59 in the array (zero, in the case 
of SNICKERS) will warn it that such a move is ‘off the board’ 


The second, and much more important, advantage lies in 
the consistency with which moves can be specified, no 
matter where on the board they occur. I'll explain what | 
mean by that. Look at the list of moves which the computer 
iS considering to begin with, and notice the simple 
mathematical relationships connecting the square moved 
from, to that moved to: 


71 to 62 -9 
73 to 64 -9 
73 to 62 -11 
75 to 66 -9 
75 to 64 -11 
7/7 to 68 -9 


7/7 to 66 -11 


The difference between the starting square, and the ending 
Square, is either minus nine or minus eleven. And if you 
Compare the numbers given above with the board, you'll 
see that moves downward and to the left are always minus 
eleven, and those downward and to the right are always 


minus nine. 


This is true all over the board. Any non-capture move made 
by the computer must be minus nine or minus eleven from 
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the starting square. This is, lm Sure you can appreciate, 
most convenient from the computer’s point of view. (If you 
care to try the experiment using a board which simply has 
the black squares numbered from one to thirty-two youll 
Soon appreciate the grave problems this can cause.) 


Furthermore, the computer can make decisions fairly easily 
. on this board. Assume the square the computer is on, is 
numbered X. If there is a human piece on X-9, and X-18 is 
empty, it Knows it can capture by leaping into X-18. Its 
score can then be incremented, and X-9 turned into a blank 


Square. 


Furthermore, and this is where the ‘intelligence’ really 
comes in, the computer can look beyond that move, to see 
which one the human its likely to make next. If there is a 
human piece in X-27, the computer can assume — possibly 
rightly — that the human's next move will be to capture the 
computer piece now sitting on X-18, by moving into X-9. 


The position after the capture (remember, you as computer 
are now on X-18) Is also potentially under threat from X-25, 
if X-7 is vacant. This explanation is probably becoming a 
little bewildering at this point, so | Suggest you try and 
follow it through on the board which was printed earlier, or 
on a checkers board you have numbered in the same way. 


The computer can also sense when a piece of its own is 
under threat. Imagine, once again, that you are the 
Computer on square X. The human moves into square X-9. 
You Know that X+9 is vacant, so the human may well move 
into X+9 on his or her next move, capturing you on X. You 
could counter this by either moving a piece of your own 
into X+9, or — if this is not possible — moving a piece 
so that it threatens X+9. This may persuade the human 
player not to make the capture. 


There is no equivalent of checkers ‘huffing’ in SNICKERS. 
You are under no obligation to capture a piece if you do not 
want to. You may prefer not to capture a threatened piece. 
Knowing that you may have a chance of scoring two points 


with the threatening piece a little later, on another capture 
which would end on the back row. 


DIGGING DEEP 


The SNICKERS tree search does not proceed very deeply, 
although it manages to play reasonably well, winning its 
share of games (including the one which is used to 
demonstrate the program, later in this section). You may 
well be tempted to think that, if a tree was set up and 
searched completely, the program may play perfectly. 








SNICKERS is a less complex game than checkers, with no 
multiple jumps and no kings, so it is not too unreasonable 
to assume that a perfect system might be evolved. At the 
very least, it should be possible to create a path which the 
computer can follow to play the game extremely well. 


We could do this by a method somewhat similar to the 
‘matchbox tic-tac-toe Computer’ discussed in the section 
on the program TIC-TAC. That is, we could examine every 
possible move, of every possible game, and analyse them 
in depth. After all, we have tireless computers at our 
disposal, and they could do the donkey work. 


Think about it a little. You know (because the computer 
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very first level. The human player similarly has seven 
moves from which to choose at the start of the game. Each 
of our initial branches now needs seven sub-branches (or 
‘nodes’ as the branching points are called). After each 
player has had one move, and even before the program 
starts to look at possible responses to the human's first 
move, we have stacked up forty-nine divergent streams to 


follow. 


The position gets worse. Now that one piece has moved 
out of the front row of each player’s rank, two possible 
moves (one in some cases, if the initial move was at either 
end) are now available, plus another six (the first move has 
possibly blocked a move by a piece which ts still on the 
front row). That means we have another 49 times 8 
branches to consider, even before the human has had a 
second move. 


A similar search tree for checkers would contain around 10 
raised to the 40th power nodes. Considered at the rate of 
three million nodes per second (which would take a pretty 
nifty computer), this tree would take around 10 raised to 
the 21st power years to consider. 


We suggested earlier that one way of pruning the tree 
would be to abandon unprofitable branches (Such as any 
that imagines the opponent would deliberately move into 
danger needlessly), to leave time and effort to examine 
more worthwhile branches. !t was also suggested that the 
computer could check a certain distance into a branch. 
take note of what it had concluded, then swap to another 
branch, then another and another, with the option of 
abandoning branches which were becoming weaker, and 
concentrating on the more promising ones. 
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generated. AS you'll see shortly, this is how we do it in the 
SNICKERS program. 





MINI-MAXING 


However, we must first look a little further into search trees. 
in our quest for the perfect game-playing computer. 
SNICKERS uses a crude form of the technique known as 
mini-maxing’ with which we can prune our relentlessly 
multiplying branches. 


To use this, however, the computer should be able to 
assign numerical values to the positions it discovers. 


Imagine that it has three options it is considering, and each 
option consists of a move by a different piece. The value 
given to the move could consist, in part, of how close to the 
center the piece will be after the move, if it threatens 
(immediately, or could do so after another move) an enemy 
piece, if the square it is considering moving to is under 
threat, if the move actually makes a capture, or achieves 
some other goal (Such as reaching the opposite back row). 
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Here is our tree, with moves B, C and D at the ends of the 
first three branches, with their scores next to them: 


A 











B C D 
12 -4 





8 





You can see that C has the highest value, so this node 
would seem the obvious choice. Remember, this little tree 
is based on the situation after the computer has moved. 
However, if the machine looks at the next series of 
branches, when the possible responses by the human 
player are considered and evaluated, it could see this: 





A 











Mm im 
> 
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which gives the human, choices that will leave him or her in 
the weakest possible position. The choice then must be the 
one which gives the computer the maximum possible score 
while leaving the human, choices which minimise his or her 
strength. This is where the term mini-maxing comes from. 





Assuming the computer was not going to look further, to 
assess its own position after each of the moves which the 
player could make (and possibly assess player responses 
to that response), it may well be advised to choose move B. 
This leaves it in a fairly strong position (rating 8) although it 
does not leave it in the same position as move C would 
have done (rating 12). 





The computer assumes the player will make the best move 
it can in the circumstances. Had the computer played C, to 
get a maximum rating immediately after the move, tt would 


have left the human to play H, ending up with a rating of 13. 
Instead, by playing move B, the human can — at best — 


respond for a rating of 2, from node E. 


| said earlier that SNICKERS works by assigning a value to 
each possible move, in a hierarchy. It chooses its moves in 
reference to this hierarchy, which puts a value on the 
possible moves in the following order. It will always make a 


move which is higher up the tree if it can. 


A degree of mini-maxing is present. The program thinks 
solely in terms of material advantage, that is, it seeks at all 
times to minimise the number of pieces the opponent has, 


and to preserve its own lives. 
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For example, the program may see two possible captures, 
one of which will subsequently expose it to capture and 
one which will not. Naturally enough, it will make the move 
which leaves it in the strongest position after the move 
(with the piece which has done the capturing still on the 
board) and ignore the move which enables the opponent to 
strengthen his or her position (by scoring a capture in 
return). 


The hierarchy of moves used by SNICKERS to prune the 
‘possible moves’ tree, and to save searching down 
branches which represent moves it is most unlikely to 
make, is as follows. Any moves found that fit the description 
are stored: 


— Safe captures which further threaten human 
pieces, and do not expose another piece to 
capture. 





— Captures which leave the pieces making the 
capture in complete safety. 


— Other captures. 
— Moves to protect pieces under threat. 
— Random rejection of above moves, if the 


making of the move will expose a sub- 
sequent piece to capture. 






— Non-capture moves onto the back row. 


— Non-capture moves which do not expose 
the computer to danger. 


— Any legal move. 
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If it finds any capture moves, it will not bother looking 
further down the tree. In effect, it automatically prunes 
branches with ‘lower’ nodes, by not even considering them. 
This may seem rash, and certainly means the program is 
unable to play with any kind of overall strategy, but it works 
Surprisingly well (aided, of course, by the simple nature of 


the game) in practice, and manages to play with an 
appearance of skill. 


SO yOu Can appreciate, | hope, that this hierarchical 
ordering of moves, minimises the number of possibilities 





‘good, safe’, ‘safe’ or ‘captures’ 





Ifthe storage areas (dedicated areas) are empty at the end 
of this sweep, the computer sweeps the board again, 
looking to see if any of its pieces are under threat by human 
pieces. 


If this search fails to find a move, our computer looks to see 
if ithas any pieces on the second back row which could be 
moved onto the back row, adding to its score. It has a 
predetermined order for doing this, ensuring that if two 
pieces are on the back row and can be moved, the one 
closest to the center will be moved first, on the assumption 
that it is more likely to be under threat than a piece at the 
end. This is a rough-and-ready assumption which ensures 
the computer does not simply move the first piece it finds 


onto the back row. 


lf a move has not yet been made, the board is swept yet 
again, and any safe moves (that is, moves which do not 
expose the piece moved to capture) discovered are 
stored. If any have been found, the computer chooses at 


random from these. 
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If this search has failed to find a move, the computer picks 


locations on the board at random, looking for any legal 
move. i no move has been found in the 200 stabs it allows 





looking in a single sweep? The answer, of course, is ‘yes, 
except it would mean a considerable waste of effort in 
many cases, when it would be looking for, and storing 
moves, which it had no intention of even considering. You 
may well, however, like to modify the program, or write one 
of your own, to do all the checks in a single Sweep, and see 
what effect this has on its reaction time. 


It is pretty obvious that the hierarchical system for deter- 
mining the relative value of moves could be combined, for 
greater flexibility, with an evaluation function. This could 
bring in things like Samuel did, such as the number of 
pieces on the board held by one player as opposed to the 
other, the number of pieces under direct threat and ‘control 
of the center’, however that may be defined. 


One alternative to using an evaluation function would be for 
the computer to store all the possible board positions, and 
have each of these assigned a predetermined value. But 
this ‘solution, like the idea of making complete trees 
covering all the possible outcomes of the game, runs up 
against the barrier of astronomically large numbers. There 
are around 10 raised to the 40th power possible board 


positions with checkers, and those of SNICKERS would 
approach the same order of magnitude. 
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There are no simple rules to apply when developing your 
own evaluation functions for board game programs you 
write. ‘Informed guesswork’ should guide your initial 
function, and then trying out the function in practice should 
allow you to modify it so that it performs well in practice. 
The advantage of a simple game, like noughts and crosses, 
is that the program can be set up to play repeatedly against 
an opponent playing randomly, or an intelligent one. The 
results of the games can be used to automatically modify 
the evaluation function, or a large number of games can be 
played with one version of the function, and compared with 
a similar number of challenges with modified functions. It is 
not so simple to program an opponent to play repeatedly 
against a program in a more complex game such as chess, 
checkers or even SNICKERS. 


WEIGHTED ELEMENTS 





The task is made a little easier by the fact that the elements 
which make up an evaluation function are generally 
weighted with some factors within the function being multi- 
plied by a higher value than others. Modification of the 
evaluation function may well then be a matter of modifying 
the weighting factors, rather than having to add or discard 


whole new elements. 









ll try to explain that last paragraph with a concrete 
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PAWN — 


BISHOP —3 

KNIGHT — 3.5 

ROOK —5 

QUEEN —9Q 

KING — 128 (‘infinite ) 


You could create your first evaluation simply by adding up 
the pieces you have, and subtracting the pieces your 
opponent has, to give a measure of your relative ‘strength 


as follows: 


Strength = n®wP + 3#n*®wB + 3.5*n"®wkK + 
StnfwR + Q98n#wQ - (N®bP + 3*N®DB + 
3.58#NMDK + S*#NFDR + JFN#FDQ) 





With this as a starting evaluation, you could possibly write 
a rough chess program, which was willing to consider 
sacrificing pieces, or trading them, when your ‘strength 
was positive, and which would be most conservative in this 
regard when the ‘strength’ was negative. Playing against 
this program, and using this function in order to help decide 
which branches should be searched (using mini-maxing) 
could indicate that — in fact — the value of the rook has 
been underestimated, leading to unnecessary errors of 
judgement. You could then increase the value of a rook to 
Say 6.5 or /. 


The worth of your evaluation function could be increased if 
mobility (possibly expressed as the number of moves each 
piece has) could be incorporated. The value of the rook, for 
example, could be expressed (with rm equal to the moves it 
Could make) as 5*n*wr+3*rm. The function could be further 
elaborated by adding a number to the value of the piece 
which reflected the ‘value’ of the square it was occupying 
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(with the central four squares worth, say, 8 each, the 
Squares Surrounding the central four worth 6.5 and the next 
set worth 4). And so on. Thinking about the problems 
inherent in creating an evaluation function for a game as 


complex as chess indicates clearly that such a task is not a 
trivial one. 


If you are interested in developing evaluation functions, 
you might like to start with one for SNICKERS, and use it to 
modify the way moves are chosen. You should find that 
even a crude function — if you can get the computer to 
apply it in practice — should improve the computer’s play 
to a noticeable extent. 


It would be possible, given nearly infinite time and comput- 
INg power, to search each branch of the tree until the end of 
the game was reached. This would mean investigating an 
enormous number of possibilities, as you shall see in a 
moment. A more sensible approach, perhaps, would be to 
limit the depth of search. Let’s assume, for now, that we 
have deliberately decided to follow the tree for just two 
steps, one move and the opponent's possible answers to 
that move. 


A search of this kind is called ‘2-ply because we are 
looking to a depth of one move and the immediate response 
to that move. In a rough way, SNICKERS uses a kind of 
2-ply search (but without overall mini-maxing) trying for the 
move which gives it the best material advantage, assuming 
the opponent plays his or her best move in material terms in 
response (that is, the opponent captures if this is possible). 
Assuming your evaluation function is realistic, the deeper 
the ply, the better the results your program should achieve. 
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However, astronomical numbers come into play again as 
we increase the depth of search. If we assume, in noughts 
and crosses, that there are three possible moves at the 
Start of a game (that is, a move in one corner is equal to a 
move in any corner, as the first board can be transformed 
into the others by rotation), there are twelve positions at 
the 2-ply level, and anumber approaching 12 x 7 (‘approa- 
ching, because not all these games would be played out to 
completion, aS a draw or win would be evident before all 
nine positions were filled) at the next level. 


In other games, the possibilities increase even more 
dramatically. An average 4-ply search in chess, for 
example, has to cope with around a million possibilities. 





THE ALPHA-BETA ALGORITHM 


How can we possibly cope with all these numbers, in an 
attempt to write a program which plays reasonably well. 
Dut which does not take 10 raised to the 40th power years 
to make a move ? It is time now to introduce the alpha-beta 


algorithm, a very useful aid in trimming branches in our 
searcn tree. 


good move. Alpha is the value of the best move it nas SO far 





immediately it is not worth following that branch, because it 
would lead to a worse result than the best one found SO far. 


This means the computer is free to continue searching, ona 
new branch. 


Meanwhile, the program is also working out the possible 
responses to its moves. If it finds a response which is bad 
from the opponent’s point of view — so the opponent would 
be unlikely to make it — there is no point in following the 
Situations which could arise from that response. Beta ts the 
value which the opponent has when making his or her best 
response to a computer move. The search is discontinued 
if the branch leads to an opponent move which would 
diminish the value of beta, seen from the player's point of 
VIEW. 


The search cut-off caused by discovering the path being 
investigated, that lowers the computer's score is called an 
‘aloha-cutoff. The other search terminator is. called, 


naturally enough, a ‘beta-cutoff. 


We can see a crude form of the alpha side of this algorithm 
in action in the following sequence of events: 


— Measure the value of the current board. 
— Find the first move. 
— Measure the value of the board after that move. 


— Find the best opponent response, and work out 
what the board would be worth after that move. 
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— Record both values. 
— Find the next move, and follow the process. 


— |f the new move gives a better mini-max result, 
discard the first move, but store the second. 


— Continue testing moves in this way, Keeping a 
record only of the move found which gives the 
best mini-max so far. 


Doing this would mean you would end up with a single 
move which — given the limited look ahead — would be the 
‘best’ one to make. 


Note that the alpha-beta algorithm can be applied in many 
decision-making areas, other than in board games. Many 
intelligent programs, faced with a choice between a 
number of options, follow an alpha-beta line in determining 
which is the best choice of action. 


Let us now return to the SNICKERS game. You may recall 
that we looked at the opening board position, and the 
computer generated a list of the moves it was considering. 
The opening moves given by it were: 


71 to 62 
73 to 64 
73 to 62 
75 to 66 
75 to 64 
77 to 68 
7/7 to 66 


All of these moves are determined by it to be ‘safe, non- 
Capture’ moves, and of equal worth. Therefore, it chooses 
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at random from among them, and makes the move 71 to 62 
as you can see: 


H H H H 
H H H H 


12345678 


= MPNOW Fo an © 
= POW FW an © 


In fact, the moves may not all be of equal worth, as there is 
value in developing the center of the field whenever 
possible, but the program has been given no information 
upon which to make this assessment, so it believes (and 
acts on the belief) that all the moves are equal. 


The human response is then entered, using the number 
down the side and across the bottom of the ‘from’ square 
(entered as a single number) and then, when prompted, 


entering the ‘to’ Square in the same way: 


MOVE FROM? 24 
TO? 35 


The board is reprinted, and the computer reveals the 
moves it is considering: 
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COMPUTER: 0 HUMAN: QO 


12345678 


=— POW Fm AN © 
e @ e 
=— MO W Fon nan © 


12345678 


I AM CONSIDERING 73 TO 64 


I AM CONSIDERING 75 TO 66 
I AM CONSIDERING 75 TO 64 
I AM CONSIDERING 77 TO 68 
AM CONSIDERING 77 TO 66 
AM CONSIDERING 62 TO 53 


AM CONSIDERING 62 TO 51 








KH bh HH 





A few moves later, the board looks like this (not all the 
possible computer moves are shown in this printout): 
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12345678 


AM CONSIDERING 82 TO 73 
AM CONSIDERING 82 TO 71 


AM CONSIDERING 64 TO 55 
AM CONSIDERING 64 TO 53 


MH eHeH re 


There are no captures the computer can make, and all the 
possible moves can be classed as ‘good, safe’. The 
computer is still playing by choosing at random from among 
the equally-good (in its own eyes) moves it has discovered 
and stored: 





COMPUTER: 0 


o 
oD 
~ 
a 


= Pow Fm anv) © 
© Cc) e 
©: @ © 
C2 
a» 
= Www & UI WN AY © 


12345678 


MOVE FROM? 37 
TO? 48 


COMPUTER: 0 HUMAN: 0 


12345678 


©2 
©) 


©2 
@ 
C2 
a & 
= MW FU nN © 





Ls 
oo 
2 © 


12345678 
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The position now becomes a little more complex. The 
opponents pieces are getting close to each other on the 
board, so the possibility of moving into danger now exists. 
For example, if the computer were to move 66 to 57, the 
human would probably respond by capturing the piece on 
0/7, using the piece currently on 48. The program's search 
mechanism reveals this. Remember, it is at all times trying 
to ensure that its score after the move is aS good as 
possible, and the human is not given the chance to increase 
his or her score. A move from 66 to 57 would work against 
both these aims, so it would be a poor program which 
proceeded — given all the alternative moves which 
Currently exist — and made the 66 to 57 move. 


Fortunately, SNICKERS can see such elementary dangers, 
and moves from 73 to 62 which is a move classed aS ‘good, 


safe’. 


12345678 


— POW FN an @d 
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COMPUTER: 0 HUMAN: O 


12345678 


= POW Fon an © 
©) 
_ _— 
° _ 
Q 
a 
—= MPOW FOI an ® 


12345678 


MOVE FROM? 28 
TO? 37 


And so the game develops: 
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©) 
C) 
C2 


1S © 
1 © 


12345678 


MOVE FROM? 24 
TO? 35 


There are now very few easy (‘good, safe’) moves available 
to the program, and it makes a move which appears to be 
its first blunder, moving from 55 into danger (from 33) into 
44. The human responds by making the capture, and the 
program offers congratulations. 





12345678 
MOVE FROM? 33 


TO? 55 
WELL DONE 
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Of course, the human has now moved into danger, a fact 
which SNICKERS is quick to appreciate. It reports the 











COMPUTER: 0 


12345678 


12345678 


66 TO 44 CAPTURING ON 55 


>> CAPTURE FOUND 


The score iS now one all. Remember, you gain points by 
Capturing an opponent piece, and also by getting one of 


your own pieces onto the opposing back row. We will see 
that second method of gaining points in action shortly. 


Fortunately, the capture by the program has not placed it in 
a position to be captured in turn: 
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12345678 


MOVE FROM? 48 
TO? 57 


The program Knows that it can move right up next to an 
enemy piece, provided that it has backup which prevents 
the human from capturing it, so it moves from 51 to 42: 


12345678 


= MW FO an © 
® ® C) @ 
® ® 
o & 
= MW FOan © 





44 TO 26 CAPTURING ON 35 
I AM CONSIDERING 44 TO 53 


33 TO 11 CAPTURING ON 22 


>> CAPTURE FOUND 
I CAPTURED AND LANDED ON 11 


ON BACK ROW 


SNICKERS has chosen the best move possible on the 
board, capturing an enemy piece and ending up on the 
back row (on 11), thus gaining two points (and vanishing 
from the board). 
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The choices facing the human player are not very 
palatable. The piece on 35 is under threat from 44 and 
there seems no way to avoid that danger. 44 cannot be 
Captured, and 35 cannot be moved. The human ignores the 
threat as nothing can be done about it, and works towards 
getting a piece closer to the opposing back row (and 
imposing a weak threat — because the human piece is 
unprotected — on the computer piece on 75): 


COMPUTER: 3 HUMAN: 1 


12345678 


xa [Ww FW wWn~A © 
@ ® Cc) e 

BB 
=— MW FO WA © 


12345678 


MOVE FROM? 57 
TO? 66 


SNICKERS decides not to capture the new piece on 66, but 
instead goes for the one on 35, jumping over it into 26. The 
human then tells the computer that the capture of the piece 
on 75 will be made, so the computer offers congratulations: 
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MOVE FROM? 66 
TO? 84 


WELL DONE 


The human, of course, has gained two points by this jump, 
ending up on the back row. The computer now has four 
points (one less than that needed for victory) and the 
human has three: 


COMPUTER: 4 HUMAN: 3 


12345678 


—= —WwMoW &£&uWannN © 
@ e Cc) e 

@ ® C) © 
C2 

=aWMW FU AN © 


12345678 
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One of the priorities within SNICKERS’ hierarchy of moves 
is that of moving onto the back row if possible. It is now 
possible, so SNICKERS makes that move. 


I'M MOVING ONTO BACK ROW FROM 26 


This, of course, gives the game to the program: 


COMPUTER: 5 HUMAN: 3 


12345678 
8 . . C 8 
T - 4 T 
6 » & C 6 
5 i es é, 
y . . HH 4 
3 H .. 4H 3 
= « 2 
1 : 1 

12345678 


THE GAME IS OVER 


I'M THE WINNER 


HOW THE PROGRAM WORKS 


Like the other programs in this book, SNICKERS is built 
around a major loop, which is recycled over and over again 
until a particular condition is satisfied. Within that loop is a 
number of sub-routine calls. 


19 REM SNICKERS 

15 POKE 23658,299: BRIGHT ww: F 
LASH @: INK 7: PAPER 1: BORDER 1 

28 GO SUB 2978: REM INITIALIZE 

36 GO SUB 176%: REM PRINT BOAR 
D 

49 REM **% MAIN CYCLE STARTS ¥* 

S58 GO SUB 199: REM COMPUTER Mma 
VES 

69 GO SUB 17629: 








REM PRINT BOAR 
D 

76 IF CS>494 THEN GO TO 129 

89 GO SUB 19590: REM ACCEPT HUM 
AN MOVE 

9G GO SUB 17606: REM PRINT BOAR 





D 
19090 IF HS<S THEN GO TO 5d 
LID REM HEKEKHKKKKKHKKHKKKHES 


As you can see from looking at the major loop for 
SNICKERS this makes it very simple to understand the 
program's construction. AS well, it makes it easy to track 
down errors. If, for example, the program was not printing 
the board correctly, it would make sense to look first in the 
subroutine beginning at line 1760, the routine called PRINT 
BOARD. 
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The action first goes to the INITIALISE routine, from line 


2070: 


238/76 
2986 
2DBID 








21960 


21190 
LANK 
2120 
TURE 
2132 


STORE 


2149 


REM KHEX*H INITIALIZE HEE 
REM KEE HEKKKKKKKEKEKHKEKEKKEEH 
CLS 














RANDOMIZE 

DIM A(119): REM BOARD AND B 
SPACES AROUND AND BEYOND IT 
DIM G(3): REM GOOD SAFE CAP 
STORE 

DIM S(3):5 REM SAFE CAPTURE 
DIM T(18): REM QTHER CAPTUR 


E STORE ALSO USED FOR SAFE NON C 
APTURE MQVES 














21598 LET E=CODE " ": REM EMPTY 
"WHITE" SQUARE 

216@ LET B=CQODE *.": REM EMPTY 
"BLACK* SQUARE 

2176 LET C=CODE "C*: REM COMPUTE 
R PIECE 

2188 LET H=CODE "H": REM HUMAN P 
IECE 

21998 LET HS=@: REM HUMAN SCORE 
2208 LET CS=8: REM COMPUTER SCOR 
E 

22198 RESTORE 2299: REM SET UP ST 





ARTING BOARD 


22209 
22309 
22490 
22358 
2260 
2270 


FOR J=<1G TO 8G STEP 198 
FOR K=1 TO 8 

READ Xs LET A(Jt+K) =X 
NEXT K 

NEXT J 

RETURN 
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22BG REM HKEKKHKKKHHEHEHEKEKK HEHEHE 
2298 DATA 272,32,72,32,;72;32;72;3 
— DATA 32,72,32,72, 32,72, 3257 
— DATA 46,32, 46, 32,46, 32,4%6,3 
2 
2328 DATA 32,46,32, 46, 32,96,32,4 
4 
2338 DATA 46,32,496, 32,46, 32,46,3 
2 
234D DATA 32, 46,32, 46,32, 46, 32,4 
6 
2358 DATA 67,32,67,32,67,32,67,3 
2 
2368 DATA 32,67,32,67,32,67,32,6 
7 

















Here, several arrayS are dimensioned. These are as 
follows: 





A — to hold the board and the ‘off the board’ 
Squares Surrounding it. 


G — to act as store for ‘good, safe capture’ 
moves found during a sweep. 





S —as G, except the captures stored here are 
less desirable, being defined as ‘safe’ 


T — this holds captures which are not classed by 
the program as either ‘good, safe’ nor ‘safe’ 
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The REM statements identify the variables that are 
assigned here, with E representing an empty white square, 
B the empty black square (shown on the display as a dot), 
C the computer piece and H the human piece. It makes 
sense to use variable names which will remind you of what 
the variable stands for, as we have in this case. HS holds 
the human score, and CS the computer score. 


Lines 2210 to 2260 read the initial board configuration into 
the A array. 


Our main cycle gives an indication of how the computer 
proceeds from this point. We will not look at how the board 
is printed, nor how human moves are accepted because 
these are trivial programming problems. 





When the computer looks for its move, it follows — as we 
pointed out earlier — a strict hierarchy of moves. The 
program sets three variables, which are used each time the 
program cycles, to zero with lines 220, 230 and 240. The 
REM statements explain them: 





1GOHD REM KHKEKEKKKKEKKEKKKKEKERE 

1990 REM COMPUTER MOVE 

ZAG REM HEKKKHKKKKKKEKEKKEKE 

2198 REM SEARCH FOR CAPTURES 

226 LET GSAFE=8: REM TO COUNT G 
OOD, SAFE CAPTURES WHICH THREATE 
N HUMAN PIECES 

238 LET CSAFE=98: REM TO COUNT S&S 
AFE CAPTURES WHICH DO NOT PLACE 
UNDER THREAT 

249 LET CCAPTURE=9: REM TO COUN 
T QTHER CAPTURES FOUND 














hs 


The ‘stores’ are emptied: 


259 FOR J=1 TO 3 

268 LET G(J)=@: REM EMPTY GOOD, 
SAFE CAPTURE STORE 

276 LET S$(J)=98: REM EMPTY SAFE 
CAPTURE STORE 

286 LET T(J)=@: REM EMPTY OTHER 
CAPTURE STORE 

298 NEXT J 





Now the computer begins its first sweep of the board, 
jumping over the evaluation process (see line 320) if the 
Square under consideration does not contain one of its own 
pieces. It may be worthwhile following the whole of this 
Capture sequence -through in detail. The REM statements 
explain the code fairly thoroughly: 


~9OG FOR J=30 TQ 36 STEP -19 

319 FOR K=1 TO 8 

320 IF AC(J+K) <4 >C THEN GO TQ 392 
> REM SKIP EVALUATION IF NO COMP 
UTER PIECE HERE. 

330 REM ** CAPTURE TO RIGHT 
3990 LET xX=J+K-9: LET Y=Jt+tK-18: 
LET 2=J+K-27: LET M=-11 

356 IF ACK) =H AND ACY)=B THEN G 
O SUB 798: REM CAPTURE FOUND 

3690 REM *¥ CAPTURE TO LEFT ¥* 
S379 LET xXB=Jt+tK-L11: LET Y=J+K-?2: 
LEY 2Z2=J+K-33: LET M=-9 

3890 IF A(X)=H AND A(Y)=B THEN G 
O SUB 7O@: REM CAPTURE FOUND 

39S NEXT K 

494GOG NEXT J 
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HEN GO TO 989: 


OQ 


919 IF GSAFE+CSAFE+CCAPTURE=9 T 


UND 


REM NO CAPTURES F 


426 REM * NOW CHOOSE CAPTURE TO 
MAKE 


436 PRINT : 


TAB 
4499 
450 
469 
476 


BEEP 


FOR I=1 To 1@: 
.2,12: NEXT I: 


BEEP 
PRINT 


S35 ">> CAPTURE FOUND" 





PAUSE 699 


IF GSAFE< >@ THEN GO TO S¢@@ 





REM 





IF CSAFE< >@ THEN GO TO 672 


¥¥ CHOOSE FROM GENERAL 


CAPTURES ** 


S 


1 


43690 LET MOVE=TCINT 
E)+1) 


496 
IGD 
710 





32GB 
) 

ISG 
9499 
VOB 
2698 
3/78 
VORP 
VOD 
699 


(RND#¥CCAPTUR 


GO TO 349 


REM 
REM 


LET 


REM 
LET 
LET 
LET 
LET 
LET 
LET 
REM 


SCQRE IF 
610 IF START-2*¥ED>18 THEN RETUR 


N 


D 


CHOOSE FROM GOOD SAVE 
SELECT FROM STORED MOVE 
MOVE=GC(INT (RNDEGSAFE) + 
¥¥ MAKE MOVE ¥+* 
START=INT (MOVE/1909) 
ED=MOVE-19OG¥START 
A(START)=B 
A(START-ED)=B 
A(START-2*¥ED) =C 

CS=CStl 

¥%¥ CHECK FOR ADDITIONAL 
LANDING ON BACK ROW ¥* 








676 LET A(START-2*ED) =B 
638 LET cCs=CStil 


649 PRINT 
";START-2XED; " 


ON 


"I CAPTURED AND LANDE 
QN BACK ROW" 


97 


658 PAUSE 6099 

669 RETURN 

678 REM **% SAFE CAPTURE *% 

686 LET MOVE=SC(INT (RND¥CSAFE) +t 


1) 
699>GO0 TQ 34¢ 


7O6 REM *¥¥ CHECK PROPOSED CAPTU 
RE FOR SAFETY ** 

7Zi® REM **¥* CHECK SQUARE BELOW I 
N SAME DIRECTION AS INTENDED MOV 
E ** 

726 PRINT JtK3" TO “5; Y3" CAPTUR 
ING ON "3x 

736 PAUSE 4909 

74G IF AC(Z)=H THEN GO T0 926: R 
EM STORE AS A NON SAFE CAPTURE 
7390 REM **¥ CHECK SQUARE IN OTHE 
R DIRECTION FROM INTENDED MOVE * 
¥ 

7OG8 IF ACY+M) =H AND ACY-M)=B TH 
EN GO TO 926 

7798 REM NOW CHECK TO SEE IF WIL 
lL LEAVE A PIECE EXPOSED BY BY MA 
KING MOVE 

788 IF ACJI+K+M) =H AND ACI+K+2EM 
J=H THEN GO TO 929 

2990 REM ** IF REACHED THIS POIN 
T THEN CAPTURE IS “SAFE” ¥% 

SOG REM FK STORE THIS MOVE ¥* 
S190 LET CSAFE=CSAFE+1 

S26 LET S(CSAFE) =1996¥(I+K) +20+M 
> REM THIS ENCODES ENOUGH INFORM 
ATION TO RECREATE THE MOVE 

S30 REM ** NOW SEE IF THIS DESE 
RVES TO BE CALLED A "GOOD SAFE” 
MOVE 
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S49 LET CHECK=GSAFE 


B30 
S69 


IF Y¥Y+2%*M<1 THEN RETURN 
IF A(Y+M) =H AND A(Y-(28+M) ) 


{2B AND A(Y+2¥M)=B THEN LET GSAF 
E=GSAFE+1 


S728 


IF CHECK=GSAFE THEN RETURN 


- REM *¥*% THIS MOVE FOUND NOT TO 
BE GOOD SAFE ¥* 


Ssd 
SOO 
+K;5 " 
GIS 
919 
92D 








93D 
940 
+K3 " 
930 
G+ 
PbO 





1519 


LET START=INT 


REM * STORE GOOD SAFE MOVE 
PRINT "I AM CONSIDERING "3J 
TO "“sMt+t2O0+JI+K 

LET G(GSAFE) =19G#¥(J+K) +2G+M 
RETURN 

REM STORE NON 








SAFE CAPTURE 


LET CCAPTURE=CCAPTURE+1 
PRINT "I AM CONSIDERING 
TO "S$M+26+I+K 

LET T(CCAPTURE ) =19G¥(J+K) +2 


"$3 J 





RE TURN 





Note how the proposed move is stored in line 820 as a 
Single number. The result of this manipulation is to produce 
a four-figure number, with the first two digits representing 
the ‘from’ square (or START as it is called in several places 
in the program) and the final two digits representing the ‘to’ 
square (called ED in the program; END would have caused 
a crash on many systems, if it was a reserved BASIC word). 


The four-digit number is decoded, and the move made, by 
the routine from 1510: 


(MOVE /19@) 


15290 LET ED=MOVE-19O9*XSTART 


99 


1530 LET A(START)=B 
1540 LET ACED)=C 
{S50 RETURN 


If the program has found a ‘good, safe’ move (or more than 
one) it plays this move, and then allows the human to move. 
If it has not found a ‘good, safe’ move, but does have a 
‘safe’ one, it plays that. Failing this, a ‘capture’ move will be 
played. 


If none of these are possible, the program then goes to the 
next element in its hierarchy, moving to protect a piece 
which is under threat from the human player. 


98G REM * MOVE TO PROTECT PIECE 
UNDER THREAT ¥** 
999 LET MOVE=9 
1996 LET J=8¢ 
1Gig LET K=1 
1926 LET Q=J+t+K 
193G IF AtQ)<>C THEN GO TO 1118: 
REM DO NOT CONSIDER THIS SQUARE 
»sNO COMP PIECE 
19949 IF A(Qt+9)=B AND 
D A(Q+18)=C THEN LET 
+18) +Q+9 
190590 REM RANDOM EJECTION OF THIS 
MOVE IF IT EXPOSES ANOTHER ONE 
19690 IF MOVE<>@ AND A(Q-2) =H AND 
A(Q+t29)=B AND RND?>.S THEN GO TO 
151¢ 
1070 IF AQt+9)=B AND A(Q-9) =H AN 
D A(Qt+290)=C THEN LET MOVE=199#(Q 
#+29)+Q+9: GO TO i51¢ 
1980 IF A(Q+11)=B AND A(Q-11)=H 
AND A(Q+22)=C THEN LET MOVE=190% 





A(Q-9)=H AN 
MOVE =199# (Q 
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(Q+22)+Q+11 
10990 IF MOVE<>@ AND A(Q@+2)=H AND 
A(Q+22)=B AND RND>.S THEN GO TO 


151¢ 
1119 IF K<8 THEN LET K=K+ti: GO T 
Q 19429 
1126 IF J>1@ THEN LET J=3-16: GO 
TO 198196 


If such a move is found by line 1040, the next line will check 
to see that this move does not expose another piece to 
danger. If it does, the proposed move will be rejected 
around 50% of the time. This is hardly a sophisticated 
mechanism for making a choice but it ensures the computer 
does not always blindly move to protect a piece (a blind- 
ness which could be discovered and exploited by a human 
player), and also tends to make each game played by the 
program different from other ones. 


Moving a piece onto the back row carries the same reward 
as Capturing a piece, so the next. item in the hierarchy is to 
make a move onto the back row if that is possible. The 
routine from 1140 looks after this. | explained earlier how 
the sequence of squares checked in this section means 
those in the middie squares will move into the back row 
sanctuary before those at the end: 


1149 REM *% NO CAP FOUND, soa 

LOOK FOR MOVE TO "DISAPPEAR" GN 

BACK ROW HXHXKK HHH HEHEHE HHH HHH 
115@ LET MOVE=2 

1168 REM UNDESIRABLE MOVED CHEC 

KED FIRST, SOG CAN BE OVERWRITTEN 
BY BETTER ONES 

1178 IF A(22)=C AND A(11)=B THEN 
LET MOVE=22 
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fisvw 1F A(268)=C AND A(17)=B THEN 
LET MOVE=28 
11996 IF Al22)=C 
LET MOVE=22 
12090 IF A(26)=C 
LET MOVE=26 


AND A(‘(13)=B THEN 








AND A(17)=B THEN 














1218 IF A(‘26)=C AND A(15)=B THEN 
LET MOVE=26 
1229 IF A(24)=C AND A(15)=B THEN 
LET MOVE=24 





1239 IF A(29)=C AND A(13)=B THEN 
LET MOVE=294 

12498 IF MOVE=98 THEN GO TO 1319 

1258 PRINT : PRINT INK 43 BRIGHT 
1;"I’M MOVING ONTO BACK ROW FRO 

M "§SMOVE 

12606 PAUSE 30d 

1276 LET A(MOVE)=B 

1280 LET CS=CS+til 

1290 RETURN 





If this is not possible, the program sweeps to find a legal 
move which will not place it in danger. The moves are 
counted by the variable CMOVE, and the actual move to be 
made is chosen by line 1500: 


13190 REM SAFE NON CAPTURE MOVES 
1320 LET CMOVE=90: REM ¥*¥ COUNTS 
MOVES FOUND *% 

1330 FOR J=898 TO 36 STEP -19 
1399 FOR J=1 TQ 8 

15598 IF ACJI+K)<>C THEN GO TO 146 
2) 

1360 LET x=J+K-9: LET Y=J+K-18: 
LET 2Z2=J+K-29 

1370 LET Q=JtKt2 
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1380 IF A(XK)<>B THEN GO TO 1469 
1398 IF ACY)=H OR A(Z)=H AND AQ 
)=B THEN GO TO 1469 

1496 GO SUB 1569 

14190 LET xX2=J+K-11:2 LET Y=Jt+K-22: 
LET Z=Jt+tK-29 

14929 LET Q=J+K-2 

14390 IF A(X)<>B THEN GO TO 1469 
14490 IF ACY) =H OR A(Z)=H AND AQ 
,=B THEN GO TQ 1469 

143598 GO SUB 156¢ 

14690 NEXT K 

1478 NEXT J 

1989 IF CMOVE=9@ THEN GO TO 16398 
19499 REM ** MAKE MOVE ** 

1596 LET MOVE=TCINT (RNDX¥CMOUE ) + 
1) 








If all these have failed, SNICKERS tries to find a legal move. 
It chooses up to 200 moves at random (counting them with 
variable L) and if it cannot find a move in this time, 
concedes the game with line 1710: 


1638 REM RANDOM NON CAPTURE MOVE 
1648 INK 6: PRINT "LOOKING FOR R 
ANDOM LEGAL MOVE” 

1656 INK 7: LET L=@ 

1669 LET L2L+i 

16768 LET J=19*XINT (RND¥8+1) 

1689 LET K=INT (RND¥8+1) 

1698 IF A(J+K)=C THEN GO TO 1729 
176@ IF L<29@ THEN GO TO 166¢ 
17198 PRINT : FOR I=1 TO 4: BEEP 
.5,I1: BEEP .2,1+19: BEEP .3,1+S: 
NEXT I: PRINT “I CONCEDE THE GA 
ME": STOP 
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1726 IF ACJI+K-9)=B THEN LET MOVE 
=19OGHK(IJI+K)I +I+K-9: GO TO 1519 
1736 IF AC(JI+K-11)=B THEN LET MOV 
E=199X(IJ+K) +I+K-L11: GO TOA 15198 
1749 GO TO 1766 


Here’s the complete listing of SNICKERS: 


REM SNICKERS 

POKE 23658,20@6: BRIGHT @: F 
@: INK 7: PAPER 1: BORDER 1 
GO SUB 2@78: REM INITIALIZE 
GG SUB ivog: REM PRINT BOAR 


- 
ae. 


CJ f) (0 we r= 


SQ TON 


46 rcohl ** MAIN CYCLE STARTS *# 
38 GU SUB 1990: REM COMPUTER MU 


of 00 SUB 1760: REM PRINT BOAR 


7@ TF C374 THEN GO TO 124 

SO GO SUB 19308: REM ACCEPT HUM 
AN) MOVE 

9¢ GQ SUB 1768: REM PRINT E_AR 
D 

19090 IF HS<s3 THEN GO TQ SP 

L1G REM KEKEKKKKKKEKHKHEKKHS 


1260 REM END QF GAME 

130 PRINT : PRINT "THE GAME IS 
OVER" 

144@ PRINT 


159 IF HS>CS THEN FOR I=1 TO 22 
STEP 2: BEEP .1,I1: BEEP .1,I1+2: 
BEEP .2,4: NEXT I: PRINT FLASH 

1; INK 13 PAPER 73" >> YOU HAVE 
WON <<" 
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16@ IF CS>HS THEN FOR I=28 TO S 
STEP -1.5: BEEP .2,1: BEEP .3,I1 
+2: NEXT I: FOR I=1 TO 4: BEEP . 
1,3: BEEP .2,-1: NEXT I: BEEP 2, 
2@: PRINT FLASH 13; INK 23 PAPER 


3" **X I’M THE WINNER) ¥¥¥ 
178 STOP 
LEA REM KEKKHKKKHKHKKKKHKHKKKE 
198 REM COMPUTER MOVE 


PAD REM KKEKKKKKHKHEKKKHK HHH 

21if@ REM SEARCH FOR CAPTURES 

22?G@ LET GSAFE=98: REM TO CQUNT G 
OOD, SAFE CAPTURES WHICH THREATE 
N HUMAN PIECES 

23@ LET CSAFE=8: REM TQ COUNT §& 
AFE CAPTURES WHICH Da NOT PLACE 
COMP UNDER THREAT 

246 LET CCAPTURE=8: REM TO COUN 
T OTHER CAPTURES FOUND 

256 FOR J=1 Ta 3 

246@ LET G(jJ)=@: REM EMPTY GOOD, 
SAFE CAPTURE STORE 

278 LET S(J)=@: REM EMPTY SAFE 
CAPTURE STORE 

2?aqG LET T(J) =@: REM EMPTY OTHER 
CAPTURE STORE 

298 NEXT J 

39G FOR J=eG TO 38 STEP -1@4 

31@ FOR K=1 Ta 8 

37?@ IF A(JI+K)<>C THEN GO TO 392 
- REM SKIP EVALUATION IF NO COMP 
UTER PIECE HERE. 

338 REM ¥*® CAPTURE TO RIGHT ¥* 
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S4Q@>LET X=J+K-9: LET Y=J+K-18: 
LET 2Z=J+tK-27: LET M=-11 

359 IF A(X)=H AND ACY)=B THEN G 
O SUB 7998: REM CAPTURE FOUND 

368 REM *¥*% CAPTURE TO LEFT ¥* 

37G LET X=J+K-11: LET YH=J+K-22: 
LET 2Z2=J+K-33: LET M=-9 

388 IF A(X)=H AND A(Y)=B THEN G 
Q SUB 798: REM CAPTURE FOUND 

396 NEXT K 

490 NEXT J 

4190 IF GSAFE+CSAFE+CCAPTURE=%9 7 
HEN GO TO 98@: REM NO CAPTURES F 
OUND 

426 REM * NOW CHOOSE CAPTURE TO 

MAKE ** 








4396 PRINT : FOR I=1 TO 1@: BEEP 
.3,1: BEEP .2,12: NEXT I: PRINT 
TAB 83">> CAPTURE FOUND" 

44@ PAUSE 692 

450 IF GSAFE<>@ THEN GO TO 59¢ 


460 IF CSAFE<>@ THEN GO TO 6/769 
476 REM ¥**¥* CHOOSE FROM GENERAL 
CAPTURES ** 
4896 LET MOVE=TCINT 
E)+1) 
49¢ 
IBD 
51¢ 
S 
I2¢G 
1) 


(RND¥CCAPTUR 


GO TO 348 
REM CHOOSE FROM GOOD SAVE 
REM SELECT FROM STORED MOVE 








LET MOVE=G(INT (RND#GSAFE) + 


I3PG 
94D 
VIP 
369 


REM 
ik 2 
LET 
LET 





KF MAKE MOVE *¥** 
START=INT (MOVE/1969@) 
ED=MOVE-19O9G*¥START 
A(START)=B 
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wg 2) 
V3 
39D 
699 








SCORE IF 


619 
N 










620 
6398 
6428 
D ON 
650 
669 
6728 
689 
1) 
696 
77GB 





RE FOR SAFETY 


71D 


LET 
LET 
LET 
REM 


A(START-ED)=R 
A(START-2#¥ED)=C 

CS=CS+ti1 

% CHECK FOR ADDITIONAL 
LANDING ON BACK ROW ¥*¥ 
IF START-2*ED>18 THEN RETUR 





LET A(START-2*ED) =B 

LET CS=CSti 

PRINT "I CAPTURED AND LANDE 
"3 START-2#ED3" ON BACK ROW” 
PAUSE 699 

RE TURN 

REM *% SAFE CAPTURE ** 

LET MOVE=SC(INT (RND#CSAFE) + 


GO TQ 34939 

REM *% CHECK PROPOSED CAPTU 
KF 

REM *% CHECK SQUARE BELOW I 





N SAME DIRECTION AS INTENDED MOV 


E ** 


728 PRINT J+K3 "™ 
ING ON 


TO "sY¥3" CAPTUR 


"3 


736 PAUSE 490 


7499 IF A(Z)=H THEN GO TO 928: 
EM STORE AS 





R 


A NON SAFE CAPTURE 


756 REM *¥% CHECK SQUARE IN OTHE 
R DIRECTION FROM INTENDED MOVE * 


¥ 
7 O09 


IF ACY+M) =H AND AC(Y-M)=B TH 


EN GO TQ 9298 


7178 


REM NOW CHECK TO SEE IF WIL 


L LEAVE A PIECE EXPOSED BY BY MA 


KING 


MOVE 
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7838 


IF ACI+*K+M) =H AND ACIt*K+2EM 


Y=H THEN GO TO 929 
796 REM *¥*% IF REACHED THIS POIN 


T THEN CAPTURE IS 
REM ¥*¥ STORE THIS 


SAG 
S19 
S28 





"SAFE" ¥% 
MOVE ** 





LET CSAFE=CSAFE?+1 
LET S(CSAFE) =199¥(J+K) +260+M 


- REM THIS ENCODES ENOUGH INFORM 
ATION TO RECREATE THE MOVE 


33D 
RVES 
MOVE 
340 
83d 
860 


<>B AND ACY+2¥EM) =B 


REM ¥% NOW SEE IF THIS DESE 
TO BE CALLED A "GOOD SAFE" 
x¥ 

LET CHECK=GSAFE 

IF Y+2¥M<1 THEN RETURN 

IF ACY+M) =H AND A(Y-(2G+M) ) 
THEN LET GSAF 


E=GSAFE+1 


4 2) 


IF CHECK=GSAFE THEN RETURN 


>; REM ** THIS MOVE FOUND NOT TQ 
BE GOOD SAFE *¥* 


S3sa 
She 2) 
+K 5 ” 
IOS 
91D 
92D 





93D 

P46 
+K5" 

P30 
O+M 
P60 
976 
93D 








REM * STORE GOOD SAFE MOVE* 
PRINT "I AM CONSIDERING “°3J 
TO “s;Mt20+JI+K 

LET G(GSAFE) =-1990#(J+K) +20+M 
RETURN 

REM STORE NON SAFE CAPTURE 


LET CCAPTURE=CCAPTURE+1 


PRINT “I AM CONSIDERING "3J 
TO "“sM+t2G+Jt+K 
LET T(CCAPTURE ) =199¥(J+K) +2 


RETURN 
REM KEEKKEEKKEKEKKEKEEKEKKEH 
REM * MOVE TO PROTECT PIECE 


UNDER THREAT ** 
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999 LET MOVE=9 

1g9@@ LET J=8@¢ 

19198 LET K=1 

1926 LET Q=J+K 

19398 IF A(@)<>C THEN GO TO 1119: 
REM DO NOT CONSIDER THIS SQUARE 
,NO COMP PIECE 

1949 IF A(Q+9)=B AND A(Q-9)=H AN 

D A(@+18)=C THEN LET MOVE=199%(G 
418) +Q+t+9 

1958 REM RANDOM EJECTION OF THIS 

MOVE IF IT EXPOSES ANOTHER ONE 

1G969>IF MOVE<>@ AND A(Q-2)=H AND 
A(Q+28)=B AND RND>.S THEN GO TO 
1519 

1978 IF A(Q+9)=B AND A(Q-9)=H AN 

D A(Q@+29)=C THEN LET MOVE=199%(@ 
+28)+Q+9: GO TO 1519 

1988 IF A(Q@+11)=B AND A(Q-11)=H 

AND A(Q+22)=C THEN LET MOVE=190% 
(Q+22)+Q+11 

199@ IF MOVE<>@ AND A(Q+2)=H AND 
A(Q@+22)=B AND RND>.5S THEN GO TO 
151g 

11198 IF K<S THEN LET K=K+ti: GO T 

O 1929 

1126 IF J>1@ THEN LET J=J-1@: GO 
TO 1919 
1139 REM 
1149 REM 











KEK KI IEEE IIE 
¥% NO CAP FOUND, SO 
LOOK FOR MOVE TO "DISAPPEAR" ON 
BACK ROW XXKXKHHKHHKHH KKH HHH HHH IH 
1159 LET MOVE=9 
116@ REM UNDESIRABLE MOVED CHEC 
KED FIRST, SO CAN BE OVERWRITTEN 
BY BETTER ONES 
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AND A(11)=B THEN 





1176 IF AC22)=C 
LET MOVE=22 
1180 IF A(28)=C AND A(17)=B THEN 
LET MOVE=28 

11990 IF A(l22)=C AND A(13)=B THEN 
LET MOVE=22 


172760 IF A(26)=C AND A(17)=B THEN 
LET MOVE=26 

12190 IF At26)=C AND A135) =B THEN 
LET MOVE=26 

12290 IF A(24)=C AND 
LET MOVE=24 

1230 IF A(24)=C AND A(13)=B THEN 
LET MOVE=24 

1299 IF MOVE=8 THEN GO TO 1312 
1250 PRINT ©: PRINT INK 43 BRIGHT 
1;"I’M MOVING ONTO BACK ROW FRO 

M "SMOOVE 

1260 PAUSE S069 

12790 LET A(MOVE) =B 

12890 LET CS=CS+t1l 

12990 RETURN 

L3SGGD REM EKEKKHEHEKEKH HEHEHE KKK K KEKE H 
13190 REM SAFE NON CAPTURE MOVES 
1320 LET CMOVE=96: REM ¥*¥ COUNTS 

MOVES FOUND *%* 

13390 FOR J=86 TO 38 STEP -19 
13490 FOR J=1 TO 8 

1350 IF A(J+K)<>C THEN GO TO 146 

D 

1366 LET X=J+K-9: LET Y=J3J+K-18°2 

LET 2=J+K-29 

1376 LET Q=J+K+2 

1383890 IF A(X)<>B THEN GO TO 1469 


A(15)=B THEN 
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1396 


IF ACY)=H OR A(Z)=H AND A(Q 


)=B THEN GO TO 1462 


1499 
1919 


LET 
14929 
1439 
149499 


GO SUB 15692 
LET X=J+K-11:; 
Z=J+K-29 

LET Q=J+K-2 
IF A(X)<>B THEN GO TO 1469 
IF ACY) =H OR A(Z) 2H AND A(Q 


LET Y=J+K-22:3 


)=B THEN GO TO 1462 


149359 
14969 
194728 
149839 
1909S 
13596 
1) 

1519 
132d 
1532 
1348 
13552 
1569 
13578 
1389 
+K 5" 
13590 
1696 
16190 
1629 
1638 
1649 


GO SUB 1562 

NEXT K 

NEXT J 

IF CMOVE=98 THEN GO TO 16392 
REM **% MAKE MOVE ** 

LET MOVE=TCINT (RNDXCMOVE) + 


START=INT (MOVE/196) 
ED=MOVE-199#START 
LET A(START)=B 

LEfF ACED)=C 

RE TURN 

REM ** STORES MOVES ¥+* 
LET CMOVE=CMOVE +1 

PRINT *°I AM CONSIDERING 
TO "5x 

PAUSE 499 

LET T(CMOVE) =19090#(J+K) +X 
RE TURN 

REM KEKKEKKKEREREKKEKKEE 
REM RANDOM NON CAPTURE MOVE 
INK 6: PRINT "LOOKING FOR R 


LET 
LET 





"Ss J 





ANDOM LEGAL MOVE®* 


1656 
1660 
1676 
1689 


Y:; LET L=9 

L=L+1 

JHLIGEKEINT (RND#¥S+1) 
K=INT (RND#8+1) 


INK 
LET 
LET 
LET 
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1699 
17BDB 
1714 


NEXT I: 


ME”: 
1720 


=19OGKE(IJ+K) +JI+K-9° 


1732 


E=190G¥(IJ+tK) +J+K-11: 


1/7459 
17359 
1/769 
1772 
1/789 
1/79D 
UTER 


HUMAN 


13909 
1819 
1826 
1832 
1399 
18359 
1369 


5 CHRS 


1872 
1875 
138d 
1399 
19YDPD 
1919 
1929 
193d 
1946 
1939 


IF A(J+K)=C THEN GO TO 172@¢ 
IF L<2@@ THEN GO TO 1669 
PRINT : FOR I1=1 TO 4: BEEP 
BEEP .2,1+19: BEEP .3,1+5: 
PRINT "I CONCEDE THE GA 





STOP 

IF ACI+K-9)=B THEN LET MOVE 
GO TO 1519 

IF ACJI+K-11)=B THEN LET MOQV 
GO TO 13519 
GO TQ 1/766 

REM KEKKKKHKKKKKEKEKEKKKEE 
REM PRINT BOARD 

CLS 

PRINT 

PRINT INK 65 BRIGHT 15 "COMP 
"§ FLASH 13CS3; FLASH @;” 

"3 FLASH 1;5HS 





PRINT 

PRINT ” 12345678 " 
iS 9) 5 nals " 

FOR J=80@ TO 16 STEP -19 
PRINT " "3 J/19$5 

FOR K=1 TQ 8 

INK 4: PRINT PAPER S33 INK © 





(ACI+K) ) § 
NEXT K 
INK 7 
PRINT J/19 
NEXT J 
Pees 7 eee ' 
PRINT * 12395678 " 
PRINT 
RETURN 
REM KEKE KEHEKEKKEKKKK HEHEHE HK HKKKHH 
REM **¥ ACCEPT HUMAN MOVE 
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1968 INPUT "MOVE FROM "3START 
1978 IF A(START)<H THEN GO TO 19 
6g 

1989 INPUT "TO "SED 

1999 PRINT ’’3 BRIGHT 13 "From 
start3",to "“jed: IF A(ED)<>B OR 
ABS (START-ED)>11 AND A((START+tE 
D)/2)<>C THEN GO TO 198¢ 

2998 LET A(START)=B 

2619 LET A(ED)=H 

2828 IF ABS (START-ED)>11 THEN L 
ET A((START+ED) /2)=B: LET HS=HS+ 



























1: BEEP .3,7: BEEP .2,6: BEEP 1, 
15: PRINT INK 73 BRIGHT 13 PAPER 
@; FLASH 13" WELL DONE * 





2O63G IF ED>SSOG THEN LET ACED)=B: 
LET HS=HSt1i: PRINT “THATS ONE MO 
RE FOR YQU”® 





2848 
2930 
2G 6G 
2B/SD 








PAUSE 199 

RETURN 

REM KEEKKEKKEKRKEKKEKRKERKEE 
REM HEXH INITIALIZE KEE 








ZLAGEBG REM KEKKKKKEKREKEKREKKEKEE 
2098 CLS 

2i9GG RANDOMIZE 

21196 DIM A(119): REM BOARD AND B 
LANK SPACES AROUND AND BEYOND IT 
2126 DIM G(3): REM GOOD SAFE CAP 
TURE STORE 

2130 DIM S(3): REM SAFE CAPTURE 
STORE 

2146 DIM T(18): REM OTHER CAPTUR 





E STORE ALSO USED FOR SAFE NON C 
APTURE MOVES 


21350 


"WHITE® 


E=CODE " ":; REM EMPTY 


SQUARE 


LET 
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2168 LET B=CODE ".": REM EMPTY 
"BLACK" SQUARE 

2178 LET C=CODE "C": REM COMPUTE 
R PIECE 

21898 LET H=CODE “H": REM HUMAN P 
IECE 

2198 LET HS=9: REM HUMAN SCORE 
2298 LET CS=@: REM COMPUTER SCOR 
E 

2218 RESTORE 2299: REM SET UP ST 
ARTING BOARD 

2228 FOR J=19 TO 88 STEP 1g 

2238 FOR K=1 TO 8 

2248 READ X: LET A(J+K) =x 

2258 NEXT K 

2268 NEXT J 

2278 RETURN 

2Z2GBG REM KKK HHH HEH 
229G DATA 72,32,72,32,72,32;72;3 
2 

2398 DATA 
2 

2319 DATA 
2 

2328 DATA 32,46, 32, 46, 32,496, 32,4 
6 

2338 DATA 46,32, 46, 32,46, 32,496,383 
2 

2348 DATA 32,46, 32,46, 32,46, 32,4 
6 

2358 DATA 
2 

2368 DATA 32,67,32,67,32,67,32,6 
? 


$2,72,32,72,32,72,32,7 








46,32,496, 32,496, 32,46,3 





67,32,67,32,67,32,67,3 
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It was argued, back in the earliest days of Al research, that 
game-programming was not a worthy pursuit. It was 
Suggested that the effort being put into chess-playing 
algorithms, for example, could better be spent on devices 
to prove mathematical theorems or on programs which 
modelled the way (to the extent it was understood at that 
time) the human brain operated. 


But the means by which a brain arrives at a solution to a 
complex problem — such as that presented by a chess 
board in mid-game — has been of continual fascination. 
Long before computers (as we understand them) existed, 
men were thinking about how a chess program could be 


written. 





Back in 1949, Claude Shannon (whose work with relays 
and logic is discussed in the LEARNING AND REASONING 


section of this book), while working at Bell Telephone 
Laboratories, presented a very important paper at a New 
York convention. It was called Programming a Computer 
for Playing Chess. The value of this paper far transcends its 
historic importance as the first published work on the 
subject. A significant number of the concepts Shannon 


discussed in that paper are still used in present-day chess 
programs. 


What was more, Shannon saw that if the problems of 
programming a computer to play chess could be solved, 
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design of electronic circuits, complicated telephone 
switching situations, language translation and problems of 


logical deduction. 


Those who sneered at attention being put into making 
game-playing machines missed the point. Any advance in 
Al expertise is potentially a source of information which will 
assist in other areas of Al application. In the LEARNING 
AND REASONING section of this book we had the program 
TICTAC. It is not very significant, on its own, to have a 
program which teaches itself to play better Noughts and 
Crosses. But the actual idea of learning is very important. 


REAL-WORLD COMPLEXITIES 


There are many situations in the world which are the 
product of a bewildering array of factors. Far too many 
factors have led to the present situation to enable it to be 
easily comprehended by man. And, if the situation is 
changing (as all real-world situations do) the ability of man 
to keep up with the present position, in order to make the 


most reasonable decisions as to what to do, is almost 
impossible. 


chess (an evaluation function assesses the overall strength 
or weakness of one side of the game, in terms of a number 


of factors, including the number of pieces on the board. 
their nature and position, the other squares they attack. 
and so on) could well be applied in producing an evaluation 
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function to suggest the best steps to overcome problems 
such aS smog, or the disposal of nuclear waste. 


Consider the situation when the Three Mile Island nuclear 
reactor malfunctioned. The number of variables to be con- 
sidered was beyond the ability of the human operators, as 
the Malone Committee Report on the accident pointed out: 





... the operator was bombarded with displays, 
warning lights, print-outs and so on to the point 
where the detection of any error condition and 
the assessment of the right action to correct 
the condition was impossible... 














A computer expert which could cut through all the input to 
pinpoint what was important, and suggest a course of 
action, would have been invaluable in that situation. 


It seems probable, then, that the expertise gained from 
working on such programs as one Is to play chess, can 
produce payoffs in other areas of Al development. 


The advances gained in this way are not always as might 
be predicted. For example, chess programs have been 
written which (a) try to emulate the way human beings play 
chess; and (b) simply try to play as well as possible. It has 
been found that programs which seek to act like human 
players do not, on the whole, play as well as machines 
acting in their own best interests. 


There are two lessons from this. One is that attempting to 
model human thinking patterns onto a machine may not be 
the best routine to follow to elicit the highest possible 





human minds behave. 
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OTHER GAMES, 
OTHER LESSONS 


Of course, chess was not the only game in town in the early 
days of work on artificial intelligence. For example, 
checkers and tic-tac-toe were other, early candidates for 


attention. 





In the section LEARNING AND REASONING we discussed 
the work of Arthur Samuel on developing a checkers 
program which could learn as it played. Samuel had no 
appreciation of the problems involved in writing a checkers 
program when he first began. He told Pamela McCorduck 
(in Machines Who Think, San Francisco: W. H. Freeman and 
Co., 1979; pp. 148, 149) that his checkers program began 
in 1946 when — after working for Bell — he went to teach 
at the University of Illinois. 


He decided the university needed a computer, but even the 
$110,000 the university's board of trustees came up with 
was not enough to buy a machine. Samuel concluded that 
the only way they could get a machine would be to use the 
money to build one themselves. He thought that, ifhe could 
do something spectacular with the first machine they 
planned to build, a small one, the exposure they got would 
enable them to attract government funds to add to those 
provided by the trustees. Samuel says he thought that 
checkers was a fairly trivial game, which would be easily 
programmed. Once the program was written, they would 
use it to defeat the current world checkers champion in a 
forthcoming championship in Kankakee, a nearby town, and 


from the publicity that would generate, they could get other 
funds. 
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The magnitude of the task soon became apparent. By 


championship time, not even the computer — much less the 
checkers program — was complete. 


Samuel says he thought of checkers because he knew 
other groups were working on chess. In comparison with 
chess, he regarded checkers as a trivial game. But, as you 
can see from the LEARNING AND REASONING section of 


this book, even programming a computer to play Noughts 
and Crosses has its own difficulties. 


If Noughts and Crosses is not trivial, think of a game such 
as Go. Much effort, throughout the history of artificial 


intelligence, has gone into designing chess programs, but 
relatively little into Go. 


There are three reasons for this. One is purely cultural. 
Most of us in the West don't play Go, but nearly all of us 
have at least a passing acquaintance with chess. The 
second reason is historical. The earliest workers in the 
field, such as Turing and Shannon, highlighted chess as an 
area worth exploring. And the third reason, pointed out 
forcefully by J. A. Campbell (in ‘Go’, his contribution to 
Computer Game-Playing, Theory and Practice, edited by M. 
A. Bramer, Chichester, West Sussex: Ellis Horwood Ltd., 
1983; p. 136) is that it has proved extremely difficult to 
write a program which plays even as well aS a raw recruit 


to the game. 





Certainly, if you want a real challenge, you could perhaps 
tackle at least some aspects of the game. Instead of the 
traditional 19 by 19 board, you could write a program for, 
say, a seven by seven board, or limit the possible moves. 
Just as Othello was created by adding an opening move 
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While games such as Othello — where the relative values 
of variouS squares on the board can be fairly easily 
tabulated — may respond well to brute-force search 
techniques, it has been suggested that ‘Go’ will only 
respond to a less hamfisted approach. Indeed, ‘Go’ may 
well take the place of chess as the ultimate test for Al (see 
David Brown, See/ng is Believing, op. cit., p. 177). 








SECTION THREE — TALKING 


CHAPTER SIX — 
UNDERSTANDING 
NATURAL LANGUAGE 


There is little doubt that the ability of computers to under- 
stand ‘natural language’ (that is, the ordinary language we 
use for human communication) is an ability upon which the 
intelligence or otherwise of computers can be, and will be, 


judged. 











The inability of a computer to converse in our ordinary, 
everyday tongue at the very least sets up a Darrier 
between the computer and ourselves. And such a barrier 
impedes our willingness to grant the computer a degree of 
intelligence. 


There have been a couple of landmark programs in this 
field, and in this section of the book we will look at 
programs which will allow you to experience at least some 
of the excitement created by the original programs. The 
landmark-programs were SHRDLU (our version is called 
BLOCKWORLD) and ELIZA (and the implementation in this 


volume, one of the most complete ever published in BASIC, 
is called DOCTOR). 


In the original SHRDLU, a ‘robot’ manipulated colored 
blocks and other shapes, in response to natural language 
orders. It was able to carry out a Superb Conversation as to 


what it was currently doing, and why, and what it did in the 
past. 


ELIZA, an imitation psychiatrist (after the style of Carl 
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Rogers) was so effective and startling when it was first 
written that its creator reports receiving anguished 


telephone calls from people desperate for a little more 
access to the program to sort themselves out. 


As well as BLOCKWORLD and DOCTOR, we'll look at the 
problems and potential of machine translation. A fairly 
trivial program (TRANSLATE) is included in this section 
which generates sentences in ‘Franglais’ to illustrate the 
kind of solutions less-than-intelligent computers can reach 
when trying to handle not one, but two, natural languages. 






HANSHAN, the final program in this section on language 
handling, creates random poems. This is a fairly low-level 
program compared to the others in this book, and one 
which — you may argue — hardly gives evidence of the 
brainpower of the computer which is running it. However, if 
you had read the preceding line some 30 years ago, with an 
author making an offhand remark about a low-cost machine 
being able to write poetry, followed by him or her dismiss- 
ing this achievement as being fairly insignificant, you would 
have been amazed. Thirty years ago it may have been an 
earth-shattering event. Proximity to wonder has blunted our 


perception and appreciation of It. 


However, some of the results produced by the programs in 
this section should invoke at least an approximation to 
wonder. Before we get to the point of discussing and 
running the programs, we need to look a little at some of the 
problems which impede perfect communication between 


man and machine in natural language. 


LANGUAGE PARSING 


Parsing is the word which describes the breaking up of 
sentences into elements which a computer can manipulate. 
The field of computational linguistics had traditionally 
researched ways of parsing sentences in order to reveal 
the role of various parts of the sentence in relation to their 
syntax. This is done, of course, in the hope that the machine 
doing the parsing can approximate an understanding of the 


sentence being processed. 


However, there iS now a growing interest in seeking 
meaning in terms of the sentence’s role within a much wider 
frame of reference (Such as we bring to bear, in terms of 
prior experience and knowledge of the environment, when 
attempting to understand a sentence). Of course, while 
research based on syntactic structure is continuing, the 
thrust towards ‘world view environment’ approaches is 
increasing. 


It is pretty obvious why this is so. We want to be able to 
talk to computers on our own terms, rather than those 
dictated by metallic language limits. When we talk about a 
field which interests us, to friends with a similar interest, we 
Can assume a great deal of commonly-shared background 
Knowledge. In a similar way, we would like to be able to 
talk to computers when we can assume the existence of a 
particular Knowledge base within which to communicate. 


Assume you run a mining company. You have a computer 
program which will assist you in searching out precious 
minerals (at least one such program, PROSPECTOR, does 
exist). You would like to he able to talk to it in the words 


and phrases which are generally used by you when ‘talking 
mining’ with your colleagues. 
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views”. In BLOCKWORLD, for example, the world consists 
of a two-dimensional space, within which your computer 
manipulates four colored blocks. However, the computer’s 
performance within that limited universe is fairly startling, 
even if it does not reach the dizzy heights of SHRDLU, the 
program which inspired it. 


SHRDLU, for example could reply to sentences such as 
FIND A BLOCK THAT IS TALLER THAN THE ONE YOU ARE 
HOLDING AND PUT IT INTO THE BOX. You'll find BLOCK- 
WORLD, even though it inhabits an even more restrictive 
universe than that of SHRDLU, unable to match it. However, 
as you'll see in due course, BLOCKWORLD can do pretty 


well on your computer. 





The program has, as | said four colored blocks to 
manipulate. It can tell you where they are, by finding a 
specified block or by describing the whole scene, and can 
move them around. in the sample run which precedes the 
program listing, there is a green block on top of the yellow 
one. | asked the computer to put the red block on top of the 
yellow one. This meant it first had to clear the top of the 
green one — in order to expose the yellow one — before 
locating the red block and putting it on top of the yellow. 
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Here’s the program output (with the computer's speech in 
upper case): 


s- Ow a 
~RYB. 


Put the red block on the yellow one 


I UNDERSTAND 
NOW I'LL MOVE THE GREEN ONE 


I'M MOVING IT TO ROW 4 
I'M NOW MOVING THE RED ONE 
ONTO THE YELLOW BLOCK 


~ RG. 
Y B 





As you'll discover when you run this program, there is 
powerful magic in communicating in English (a very limited 
subset, admittedly, but English nevertheless) with a com- 
puter, and having it both follow your instructions, and talk 
back to you in plain English as well. 


In the early days of Al, much time was spent asking whether 
or not a program really understood what was going on. It 
was felt that even programs such aS SHRDLU or Joseph 
Weizenbaum’'s ELIZA (which we will be looking at in depth 
in due course), while they gave convincing impressions of 
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intelligent behavior, didn’t relly get us any closer to ‘real’ 
intelligence (whatever we assume that actually is). 


This concern has lost much of its potency today. We do not 
spend time asking if a robot spot-welder working on a car 
assembly line can ‘really see’ what it is doing, or ‘takes 
Satisfaction’ in a job well done. It is important that the thing 
works. If, aS we will find to some extent in this section on 
language handling, the computer can handle language 
effectively, as though it ‘really’ understood what it was 
hearing and saying, this is more than enough in many 
Situations. 


The ‘expert systems’ programs (discussed in detail in the 
section of that name in this book) can make fresh dis- 
coveries, and can help human beings solve difficult 
problems. The pragmatic side of the Al world now tends to 
take an ‘intelligence is as intelligence does view of things. 
lf it behaves intelligently — even within an extremely 
limited domain — let's assume the program does under- 
Stand what is happening. Let’s get on with the important 
questions, such as increasing the apparent intelligence of 


the beast. 


PROBLEMS 


There are a number of major problems which Al 
researchers are grappling with in an attempt to solve the 
mysteries of natural language processing. The enormous 
number of words in any human language, and the bewilder- 
ing array of ways in which those words can be combined, is 
the major, and most obvious, stumbling block. Many 
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get at the meaning. Ambiguity is often inherent in speaking 
— perhaps more so than in written communication — and 


the spoken word is often incomplete and almost totally 
unstructured. 


Each additional task a computer is given increases the 
processing time. A natural language system must not 
demand so much time that the process becomes useless In 
human terms. If it takes your computer a week to ‘under- 
stand’ a paragraph, you’re not going to spend much time 
investigating its ability to communicate with you. 


SYNTAX AND SEMANTICS 





These are the two approaches to the field of language 
parsing. They are not mutually exclusive. They are used to 
attack the problems which lie even within § ordinary 
language use. Even working out which person ‘he’ refers to 
in the following sentence may take you a moment or two: 


THE MAN WHO WAS WITH PETER SAID HE WAS TIRED 


If this is read in a vacuum, aS you have just done, there are 
no clues as to whom the ‘he’ refers, although I’m inclined to 
think it is ‘the man’ rather than Peter who is tired. 


Any natural language parsing system must be able to deal 
with problems like this. Margaret Boden (in Artificial 
Intelligence and Natural Man, Hassocks, Sussex: Harvester 
Press, 1977; p. 112) gives the delightful name of ‘‘The 
Archbishop's Problem’ to the difficulty of automatically 
assigning such words. Her source for this name is Alice in 
Wonderland: 
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"Even Stigand, the patriotic Archbishop of 
Canterbury, found it advisable -" 


"Found what?" said the duck, 





"Found it," the mouse replied rather 


crossly. "Surely you Know what “‘'tit' 
means?" 


"I know what 'it' means well enough when I 
find a thing," said the duck. "It's 


generally a frog or a worm. The question 
is, what did the Archbishop find?" 


Let's have a look at the sentence now, and see how a 
parser might split it up, before putting each word through 
its processor in order to approximate an understanding of 
the writing analysed. (Then we'll examine the important 
question of how ‘understanding’ is defined.) 


Here is the sentence: 
THE OLD THIN MAN IS UNDER THE OAK TREE 


We can look at the sentence syntacticly (with each syn- 
tactic element of the structure bound within parentheses) 


as follows: 


[TTHE [[OLD][[THIN] [MAN ]]]] 
IS [[UNDER] [THE [[OAK] [TREE]]]]] 


Look at this carefully, following the binding, and you may 
get a reasonable impression of the various elements which 
are thus bound together. For example, the words THIN MAN 
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are individually bound, as [THIN]J[MAN] and also bound 
together in a larger group [[THIN][MAN]]. 


The adjective OLD modifies the noun, as well as THIN does, 
so it is bound in a similar way as [[OLD][THIN][MAN]]], 
except this binding sees a ‘stronger’ link between THIN and 
MAN than between OLD and MAN. There is a further bond 
around the entire left hand side of the sentence [THE... 
MAN]]]] with the linking verb IS only bound by the paren- 
theses which hold the entire sentence. 





lf we look at the right hand side, we can see that UNDER is 
held within the same bond as TREE, aS a pair of paren- 
theses bind the whole of this side. THE is not bound on both 
Sides as are all the other words, in recognition of the fact 
that its only purpose is to modify the following noun (and 
‘the oak tree’ is different, fairly obviously, from ‘an oak 
tree ). 


We can express the syntactic structure of our sentence as 
a tree as follows: 


THE 
THE 


UNDER 





THIN MAN OAK TREE 
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If we could get a computer to break a sentence down like 
this, able to recognize the parts of speech on each branch 
of the tree, and/or within the bonded pairs in our multi- 
parenthesised sentence, we would be well on the way to 
getting a degree of understanding. 


This brings us back to the question | raised a short while 
ago. What do we mean, in the machine context, by “under- 
Standing’? J. Klir and M. Valach (in Cybernetic Modelling, 
London: Iliffe Books, 1965) suggest that understanding a 
spoken message iS usually regarded to be a three-part 
thing: 


1. A way of ‘hearing’ the message. 
2. Ameans of responding to that message. 
3. A method for assessing whether or not the 


response (2) was such that it could be inter- 
preted as showing understanding had taken 


place. 


There could be several ways of assessing the understand- 
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CHAPTER SEVEN — 
BLOCKWORLD 


Sometimes a computer ‘conversing’ in natural English (or 
an approximation to it) can produce a most unsettling 
effect. In BLOCKWORLD, a simplified version of a famous 
program called SHRDLU (which I'll discuss a little later), 
your computer manipulates a series of colored toy blocks, 
following your instructions, and telling you — from time to 
time — how the blocks are arranged in relation to each 


other. 





The blocks, of course, do not really exist, except as 
electronic figments of your computer's brain. However, you 
Can see a representation of them on the screen, and this 
representation changes as the computer moves the blocks 


around. 


As you've certainly gathered by now, it is generally easier 
to obtain a convincing demonstration of machine intelli- 
gence wnen the computer is operating within a limited 
domain. The domain of toy blocks is often used in Al 
experiments because it is clearly limited, yet allows a 
considerable degree of interaction and manipulation, as 
you shall see. 


There are four blocks in the universe, your computer will be 


manipulating with this program. The blocks are red (shown 
as the letter ‘R), green ('G’), yellow (‘Y’) and blue (‘B’). 
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You are looking at the blocks from the ‘front’. The BLOCK- 
WORLD is essentially two-dimensional. Although you can 
move blocks around, and put them on top of each other, you 
cannot put blocks ‘behind’ or ‘in front of’ other blocks. The 
dots are invisible to the computer. They exist only for your 
benefit, and show a position which a block can occupy. 


Although you have only a limited number of sentences you 
Can use when communicating with the BLOCKWORLD, 
you ll be pleased to see how convincing that conversation 
can be. As well, it makes an easy-to-explain (and impres- 
Sive) demonstration of artificial intelligence in action to 
show your sceptical friends. 


After the blocks have appeared on the screen, you'll see 
the ‘?’ prompt, indicating that BLOCKWORLD is waiting to 
hear from you. We can ask the computer to describe its 


world: 


? TELL ME WHAT YOU CAN SEE 
STARTING FROM THE RIGHT 


»2«e-A SPACE THEN 


MY SENSORS REGISTER THE GREEN BLOCK 
IT'S THE BLUE BLOCK 

MY SENSORS REGISTER THE YELLOW BLOCK 
MY SENSORS REGISTER THE RED BLOCK 


FINALLY -.-A SPACE 
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Once it has given you an overview in this way (reporting a 
dot as a ‘Space’), you can ask it to locate specific blocks 


within the world: 


? WHERE IS THE YELLOW BLOCK 


> LET ME SEE NOW < 


IT IS IN POSITION 3 FROM THE LEFT 
THE RED BLOCK IS TO 


ITS IMMEDIATE LEFT 


I CAN SEE THE BLUE BLOCK 
TO ITS RIGHT, TOUCHING IT 


THERE IS NOTHING ABOVE THAT 


Of course, straight reporting is not too big a deal, even 
though — as you can see — the program is responding tc 
natural language questions, and replying in a reasonable 
version of English. We now get to the meat of the matter. 


getting the computer to manipulate the elements of its 
restricted domain: 
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I'M NOW MOVING THE GREEN ONE 
ONTO THE YELLOW BLOCK 


¢ WHERE IS THE YELLOW BLOCK 


> LET ME SEE NOW < 


IT IS IN POSITION 3 FROM THE LEFT 


THE RED BLOCK IS TO 
ITS IMMEDIATE LEFT 


I CAN SEE THE BLUE BLOCK 
TO ITS RIGHT, TOUCHING IT 


ABOVE IT IS THE GREEN BLOCK 


THERE IS NOTHING ABOVE THAT 


It is one thing to put one block (the ‘object’) on top of 
another block (the ‘target’) when the target is clear on top. 
However, it is another situation entirely, and one which 
requires a significant quantity of code, when the target 
must first be cleared. The situation is made even more 
complicated when there is one block (or more) on top of 
the object block, which must be cleared before it can be 


moved. Here the program must clear the target. The object 
iS unobstructed: 


¢ PUT THE RED BLOCK ON THE YELLOW ONE 


I UNDERSTAND 
NOW I'LL MOVE THE GREEN ONE 


I'M MOVING IT TO ROW 4 


I'M NOW MOVING THE RED ONE 
ONTO THE YELLOW BLOCK 
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STARTING FROM THE RIGHT 


»-.-A SPACE THEN 
---A SPACE THEN 


~--A SPACE THEN 
MY SENSORS REGISTER THE YELLOW BLOCK 


IT'S THE RED BLOCK 


»-- AND BELOW IT... 
I SEE THE BLUE BLOCK 
»-.e- AND BELOW IT... 


I SEE THE GREEN BLOCK 
FINALLY ...A SPACE 


We now make the strongest demand to date: 


OK 


I MUST MOVE THE RED BLOCK 
I'M MOVING IT TO ROW 5 


I'M NOW MOVING THE BLUE ONE 
ONTO THE YELLOW BLOCK 


>>>> PRESS 'RETURN!' TO CONTINUE 
c 


This program behaves in a manner which is almost uncanny. 
It appears to understand your commands, and acts in 
accordance with them. It seems to comprehend what it is 
doing, and can report the result of its actions. 


137 


HOW DOES IT WORK”? 


How is it doing this? What is the secret of this impressive 
performance? The entire project boils down to sentence 
parsing to get the important parts of your commands, 
manipulation of elements within a two-dimensional array in 
response to instructions gleaned from the parsed input and, 
finally, printing out the array in a way which conveys the 
array contents so that they can be easily perceived. 





‘Explaining’ it in this way does not, of course, really detract 
from the impression of intelligence this program conveys, 
although BLOCKWORLD is a primitive creature compared 
to its progenitor, SHRDLU. 


This program, which was finished in 1971 by Terry Wino- 
grad, not only manipulated blocks, but showed them on a 
screen, in color, creating the world as well as interacting 
with it. Let's listen in as Terry speaks with SHRDLU (the 


computer output is in upper case letters, preceded by a > 
SIGN): 


Pick up the big red block. 
>OK 


Find a block which is taller than the one 


you are holding, and put it into the 
DOX. 


>OK 
What does the box contain? 
>THE BLUE PYRAMID AND THE BLUE BOX 


What 1s the pyramid supported by? 
>THE BQX 


Is there aéelarge block behind the 
pyramid? 
>YES, THREE OF THEM: A LARGE RED ONE, A 
LARGE GREEN CUBE, AND THE BLUE ONE 
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As you can see, this is a remarkable effort and one which 
has led researchers to regard Winograd’s work as one of 
the high spots in the development of artificial language 


programs. Our BLOCKWORLD pales somewhat by com- 
parison. 


However, BLOCKWORLD is still capable of fairly involved 


manipulation, even if its output is not as complex as that 
produced by SHRDLU. We will prove this claim by returning 


to our program, and asking it to jump through a few difficult 
hoops. 


The yellow block is, aS you can see, underneath the blue 
one. We will now ask the program to reverse the position of 
those two bIocks. 


? PUT THE YELLOW BLOCK ON THE BLUE 


I UNDERSTAND 


I MUST MOVE THE BLUE BLOCK 


I'M MOVING IT TO ROW 4 
I'M NOW MOVING THE YELLOW ONE 


ONTO THE BLUE BLOCK 
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? PUT THE RED BLOCK ON THE YELLOW CNE 


I UNDERSTAND 


I'M NOW MOVING THE RED ONE 
ONTO THE YELLOW BLOCK 


The computer is then told we want to get the bottom block 
from the tower of three and place it on the block which is 
Currently standing alone. Note here that the program has 
been written to ensure that if the target is clear, it is not 
covered while the object is being uncovered: 


? PUT THE BLUE BLOCK ON THE GREEN ONE 


OK 


I MUST MOVE THE RED BLOCK 
I'M MOVING IT TO ROW 6 


I MUST MOVE THE YELLOW BLOCK 
I'M MOVING IT TO ROW 6 
I'M NOW MOVING THE BLUE ONE 


ONTO THE GREEN BLOCK 
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through a series of tests of increasing difficulty: 


¢ PUT THE RED BLOCK ON THE GREEN ONE 


OK 
I MUST MOVE THE YELLOW BLOCK 


I'M MOVING IT TO ROW 5 
NOW I'LL MOVE THE BLUE ONE 


I'M MOVING IT TO ROW 5 
I'M NOW MOVING THE RED ONE 


ONTO THE GREEN BLOCK 


It completed that without any problems. Let's use the green 
as our object (which is currently covered by the red) and 
the blue as the target to build up — in due course — a 


tower of all four blocks: 


? PUT THE GREEN BLOCK ON THE BLUE ONE 


I UNDERSTAND 
I MUST MOVE THE RED BLOCK 


I'M MOVING IT TO ROW 3 
I'M NOW MOVING THE GREEN ONE 
ONTO TEE BLUE BLOCK 
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? PUT THE RED BLOCK ON THE BLUE ONE 


I UNDERSTAND 
NOW I'LL MOVE THE GREEN ONE 


I'M MOVING IT TO ROW 2 


I'M NOW MOVING THE RED ONE 
ONTO THE BLUE BLOCK 


2? PUT THE GREEN BLOCK ON THE RED ONE 
I UNDERSTAND 


I'M NOW MOVING THE GREEN ONE 
ONTO THE RED BLOCK 


Now we come to a very difficult test and one which — 
frankly —1| did not think the program was going to be able 
to handle. Certainly, | had written a general-purpose 
target/object manipulation routine into the program, but 


142 


was not confident it could handle a situation like the one it 
iS about to tackle. It has to take a block (the blue one) from 
near the bottom of the tower by first moving the blocks from 


above it, then put this blue block on top of one of those (the 
red one) which it has taken from the initial stack: 


? PUT THE BLUE BLOCK ON THE RED ONE 
OK 


I MUST MOVE THE GREEN BLOCK 


I'M MOVING IT TO ROW 6 
I MUST MOVE THE RED BLOCK 
I'M MOVING IT TO ROW 4 


I'M NOW MOVING THE BLUE ONE 
ONTO THE RED BLOCK 


eo e¢ © @© 8 @ 


? TELL ME WHAT YOU SEE 


STARTING FROM THE RIGHT 
IT'S THE GREEN BLOCK 


MY SENSORS REGISTER THE YELLOW BLOCK 


IT'S THE BLUE BLOCK 


...-AND BELOW IT... 
I SEE THE RED BLOCK 


..eA SPACE THEN 
~.-A SPACE THEN 
FINALLY ...A SPACE 
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| was extremely pleased when BLOCKWORLD passed this 
test. | had not thought of testing in this difficult way. But 
when | tried it with a stack of four, and asked it to put the 
bottom block on top of the one which was currently on top 
of the stack of four, it bombed badly. It took me more than a 
week to work out how to solve it. At first | attempted a 
‘Klutz’ approach, with a separate routine for stacks of four. 
Then | realised that adding just seven characters to line 
1790 (TASK = 3:) enabled it to handle the situation. 





BLOCKWORLD has been working hard, so | thought | 
Should give it a little R & R: 


? SHUFFLE THE BLOCKS AROUND A BIT 


IT'S GOOD TO BE GIVEN A CHANCE 
TO DO WHAT I WANT 
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MODULES OF THE PROGRAM 


As with other programs in this book, BLOCKWORLD starts 
off with a call to a subroutine at the end of the program 
which initialises the variables used: 


29478 REM INITIALIZE 
249489 CLS 


2499 RANDOMIZE 

2598 DIM A(5,6) 

2518 FOR X=1 TO 5 

2528 FOR Y=1 TO 6 

2536 LET A(X,Y) =46 

2549 NEXT Y 

255@ NEXT x 

2568 LET A(1,2)=CODE "R": REM RE 
D BLOCK 

2578 LET A(1,3)=CODE "Y": REM YE 
LLOW BLOCK 

2588 LET A(1,4)=CODE "B": REM BL 


UE BLOCK 
2599 LET A(1,5)=CODE "G": REM GR 


EEN BLOCK 
2609 RETURN 


As you can see (line 2500) a five by Six array is used to 
hold the ‘world’. It is initially filled (lines 2510 through to 
2550) with 46, the ASCII code of the dot which is used to 
indicate a blank space in the world. The starting position of 
the blocks is given by lines 2560 through to 2590. You can 
see here that the program assigns the initial letter of the 
color (‘R’ for red, and so on) to the block of that color. 
There is nothing very complicated in this first subroutine. 
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Although the initialisation Subroutine is called just once per 
program, another subroutine, COLOR NAME, is called 
every time the computer wishes to refer to a bDIOCK. 


2486 REM ¥¥ COLOR NAME *¥* 

2416 IF Q=CODE "R" THEN PRINT "R 
ED "; 

2929 IF Q=CODE "YY" THEN PRINT “YY 
ELLOW "; 

294390 IF @=CODE "B" THEN PRINT "B 
LUE "; 

2999 IF @=CQODE "G" THEN PRINT "G 
REEN "; 

2493590 RETURN 


This subroutine changes the initial letter into the full name 
of the relevant color. Both these subroutines are at the very 
end of the listing. 


Back at the start of the program, we find a short section of 
code which prints out the view of the blocks. This could 
well have been a Subroutine, but as it is needed everytime 
the program cycles through the main loop, it seemed 
sensible to have it here. 


39 REM ¥¥ PRINT OUT VIEW ¥* 
49 INK 4: CLS : PRINT : PRINT 

5@ FOR X=5 TO 1 STEP -1 

68 PRINT TAB 83 

78 FOR Y=1 TO 6 

8G PRINT INK @3 PAPER 3;3CHR®E ( 
A(K,Y))$ 

9S NEXT Y 

198 PRINT 

i1@ NEXT x 

128 INK 7: PRINT : PRINT 
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Line 50 shows that the view is printed ‘upside down’ with 
the ‘5 row’ printed before the ‘4 row’ and so on, with the ‘1 
row at the bottom of the scene. This was done to make it 
easier for the program to manipulate the blocks. It Knows 
that it needs to look to a higher number to see if there is a 
block on top of the one it is considering. 


There would have been no real difficulty in doing it the 
other way (the lower the number, the higher the position of 
the block) but this seemed an unnecessary complication. 


The next section of code accepts the user’s input, and from 
it determines which subroutine should be called to act 
upon the input. 


139 INPUT AS: LET AS=AS+”" 
135 BEEP .1,2: 
.2,3 
149 PRINT AS: PRINT 
159 IF LEN AS=16 THEN STOP : RE 
M TERMINATING RUN BY JUST PRES 
SING RETURN 

168 IF AS( TO 8)="WHERE IS" THE 
N GO SUB 249 

178 IF AS( TO 12)="TELL ME WHAT 
" THEN GO SUB 195@ 

18G IF AS( TO 7)="SHUFFLE" THEN 
GO SUB 1289 

198 IF AS( TO 7)="PUT THE" THEN 
GO SUB 1599 

288 PRINT : PRINT : PRINT ">> P 
RESS A KEY TO CONTINUE <<": PAUS 
E 364 

218 GO TO 42 








BEEP .2,19: BEEP 
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Constructing an Al program leads one very quickly to 
appreciate the complexities of intelligence in operation. 
BLOCKWORLD operates in a very restricted domain, and 
reacts only to those situations which have been specific- 
ally allowed for (although, as we saw in the sample run, it 
managed to grapple with a situation for which | did not 
realise | had prepared it). Despite the limitations of domain 
and performance, BLOCKWORLD demands a lot of code, 
with a section to carry out each investigation, and to follow 
each command. 


Look, for example, at the routine which determines the 
location of a specific block. First the program must check 
that you are asking for a block which is within its known 
universe. It does this by extracting — with line 260 — the 
initial letter of the block you are seeking, and checks — 
line 270 — that this is one of the four it recognizes: 


2406 REM “WHERE IS THE” 

229 LET P=2 

26OO LET BS=AS(149) 

2°7O ITF BS="Y" OCR BS="R" OR B=" 
B”" OR BS="G"*" THEN GO TO 339 





298 PRINT "SORRY,I HAVE NO INFO 
RMATION QN THAT": GO TQ 319g 

398 PRINT "I HAVE NO DATA WITH 
WHICH TO ANSWER YOU" 

31@ RETURN 
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If it bypasses that, it starts searching for the block. We do 
not use FOR/NEXT loops for this search, as we want the 
program to be able to exit the search at any point. A 
program which arbitrarily exits FOR/NEXT loops is not one 
which has been well constructed (and many computers 
Nang up fairly quickly if too many NEXT addresses accumu- 
late on the stack). This part of the program gives it the first 
part of its required information regarding the block’s 
location: 


33@ LET M=CODE Bs 

349 PRINT TAB 83"> LET ME SEE N 
OW <" 

359 LET x=5 

369 LET Y=1 

378 IF A(X,Y)=M THEN GO TO 419 
38@ IF Y<6 THEN LET Y=Y+1: GO T 
0 376 

39@ IF X>1 THEN LET X=X-1: GO T 
0 369g 

49@ GO TO 28¢ 

41@ IF X>1 THEN GO TO 919: REM 
ON TOP OF ANOTHER 

42@ IF Y>1 THEN GO TO 538: REM 
NOT ON LEFT 








The REM statements in the rest of this section explain wnat 
each one does: 


449 REM ¥#% ON LEFT ¥** 

45@ PRINT "IS IT ON THE LEFT” 
46@ IF A(1,2)=46 THEN PRINT “TH 
ERE IS NOTHING TO ITS IM 
MEDIATE RIGHT": GO TO 792 

47@ LET @=A(1,2) 

48@ PRINT 
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6906 
619 
620 
6398 
649 
699 
660 
57D 
Y 3" 

639 


THERE IS NOTHING 
Se Ler’? 


696 
7 GO 
PAP 
PLO 
"ITS 
73D 





499 PRINT "BESIDE IT I CAN SEE 
THE” 

598 GO TO 2489 

Si@ PRINT "BLOCK" 

529 GO TO 792 

S3a@ IF Y<6 THEN GO TO 659 

SAG REM HHKKHKKHKHKK KH HHH 

550 REM ¥¥% ON RIGHT ¥*¥% 

56@ PRINT 

S578 PRINT “IT IS ON THE RIGHT H 
AND SIDE” 

S86 IF A(1,5)=46 THEN PRINT "TH 
ERE IS NOTHING TO THE IM 
MEDIATE LEFT": GO TO 792 

599 PRINT "TO ITS LEFT I CAN SE 


LET @=A(1,5) 

GO SUB 2499 

PRINT "ONE" 

GO TO 79¢ 

REM XXHKKKHHKKHHKH 


REM *¥% MIDDLE X*¥+* 

PRINT 

PRINT "IT IS IN PQSITION "3; 
FROM THE LEFT" 


IF A(X, Y-1)=46 THEN PRINT " 
TO THE IMMEDIAT 
GO Ta 73¢ 

LET Q=A(xX,Y-1) 

PRINT "THE 

GO SUB 2492 
PRINT "BLOCK IS TO": 
IMMEDIATE LEFT" 

IF A(X,Y-1)=46 THEN PRINT " 





PRINT 


THERE IS NOTHING TO THE IMMEDIAT 


= LE”; 


GQ TCO 7/96 
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748 
PID 


aa} 2) 
078 


LET Q=A(X,Y+1) 
PRINT : PRINT "I CAN SEE TH 


GO SUB 2492 
PRINT "BLOCK": PRINT " TO I 


TS RIGHT TOUCHING IT" 


PBS 
POD 
BAP 
S19 
S320 
S390 


REM KKEKHKHKHHKKHKKKKKKKKHKKHHH 
REM *#¥* ANYTHING ABOVE? ¥¥* 


PRINT 

LET P=x 

IF X=5 THEN GO TO 91¢ 

IF A(X+1,Y)=46 THEN PRINT " 


THERE IS NOTHING ABOVE THAT": GO 
TQ 319 


S40 
THE 

SIG 
346d 
37@G 
33g 
SID 
PDO 
919 
92D 
P38 
940 
939 
P69 
97D 
93d 
PID 
1990 





PRINT ©; PRINT “ABOVE IT 15S 


3 

LET Q=A(X+1,Y) 

GO SUB 245999 

PRINT "BLOCK" 

LET K=X+t1 

GO TO 8228 

PREM KKK HKKHKH KKK KKH EK KEKE 
REM * ON TOP OF ANOTHER? * 
IF P< >OG THEN LET X=P 

PRINT 

IF X=1 THEN GO TO 319 
PRINT "IT IS "35 

PRINT "ON TOP OF THE "35 
LET Q=A(X-1,7Y) 

GO SUB 2496 

PRINT "BLOCK" 

LET xX=x-1 








19198 IF X<2 THEN GO TO 319 
1926 GO TQ 968 
1930 RETURN 
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The next subroutine is called if you ask the program to 
TELL ME WHAT YOU SEE. This is a much simpler routine 
than the one which locates a specific block: 


1D4AG REM KEKHKHHKHKK HHI K 

1959 REM "TELL ME WHAT” 

1968 PRINT "STARTING FROM THE RI 
GHT" 

1978 LET Y=64 

198@ LET X=5 

1999 IF A(X,Y)<>46 THEN GO TO 11 
SP 

1198 IF Y=1 AND X=1 THEN PRINT " 
FINALLY "; 

1118 IF xX=1 AND A(X,Y)=46 THEN P 
RINT "...A SPACE "3: IF Y>1 THEN 
PRINT "THEN" 

112@ IF X>1 THEN LET X=X-1: GO T 
0 1999 

1138 IF Y>1 THEN LET Y=Y-1: GQ T 
0 1982 

1149 RETURN 

115@ LET L=INT (RND¥2) 

116@ IF L=@ THEN PRINT "ITS THE 
"s: GO TO 1192 

1178 IF L=1 THEN PRINT "MY SENSO 
RS REGISTER THE "3: GO TO 119¢ 
118@ PRINT "I SEE THE "3 

1198 LET Q=A(X,Y) 

1298 GO SUB 249g 

1219 PRINT "BLOCK" 

122@ IF X=1 THEN GO TO 113¢ 

1238 LET X=x-1 

124@ PRINT "...AND BELOW IT..." 
1259 GO To 118e¢ 


12690>RETURN 
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1276 
1239 
1298 
1300 

TAB 


The SHUFFLE BLOCKS routine is also relatively simple: 


REM HHH 
REM SHUFFLE THE BLOCKS 
PRINT 

IF RND>.S THEN INK 3: 
7;"1ITS ABOUT TIME, 





PRINT 
TOO*: GQ 


TO 1326 


1319 


E GIVEN A CHANCE °: 


INK 3S: PRINT “ITS GOOD TO B 


PRINT TAB 435 


"TQ DO WHAT I WANT!!!" 




















1329 INK 7: FOR xX=1 TO 5 

i339 FOR Y=1 TO 6 

1349 LET A(X, Y)=46 

135@ NEXT Y 

1368 NEXT xX 

1378 LET Yi=INT (RND*¥6) +1 

1389 LET Y2=INT (RND¥6) +1 

1399 IF Y2=Y1 THEN GO TO 138¢ 
149@ LET Y3=INT (RND¥6+1) 

1419 IF Y3=Y1 OR Y2=Y3 THEN GO T 
O 1389 

142@ LET Y4=INT (RND*6+1) 

1439 IF Y3=Y4 OR Y4=Y1 OR Y2=Y4 
THEN GO TO 1382 


149499 





LET A(1,Y1)=82 


1458 LET A(‘(1,Y2)=89 
1469 LET A(1,Y3)=66 
1478 LET A(1,Y4)=71 








1489 


RETURN 





Finally, we come to the routine which produces the most 
impressive results, the ‘PUT THE object on THE target’ 
routine. As in the first major routine we examined in 
BLOCKWORLD, the REM statements explain what each 
section does: | 
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13599 
THE 
1519 


"I UNDERSTAND": 


"PUT THE ... BLOCK ON 


ONE” 
IF RND>.S THEN PRINT TAB 3s 
GO TO 15339 


REM 





1520 PRINT TAB 83"> OK" 
1539 LET BS=AS(9): REM OBJECT BL 
OCK 

i549 IF Bé="R" THEN LET L=26 
1559 IF BS="B" THEN LET L=27 
1566 IF BS="G" THEN LET L=28 
1579 IF BS="Y" THEN LET L=29 
1589 LET C#=AS(L) 

1599 LET B=CODE BS 

1698 LET C=CODE Cs 

1619 LET FLAG=C 

1624 REM *% FIND B& BLOCK ¥¥* 
1639 LET x=5 

164@ LET Y=1 

1658 IF A(X,Y)=B THEN GO TO 174¢ 
1668 IF ¥<6 THEN LET Y=Y+1: GO T 
O 165¢ 

1676 IF X>1 THEN LET X=X-1: GO T 
0 16492 

1689 PRINT "I CAN’T FIND THE "3 
1699 LET Q=B 

1786 GO SUB 249¢ 

1718 PRINT "ONE..." 

1728 FOR T=1 TO 266: NEXT T 

1738 RETURN 

1749 LET R=X: LET S=Y 

1758 REM OBJECT BLOCK IS AT R,S 
1768 REM IS TARGET BLOCK CLEAR? 
1778 IF A(R+1,$)=46 THEN GO To 1 
926: REM "YES" 

1768 IF A(R+2,S)=46 THEN LET TAS 
K=1: GO TO 189g 
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1798 LET TASK=3: IF A(R+3,S)=46 
THEN LET TASK=2 

189@ FOR W=TASK TO 1 STEP -1 
1818 PRINT "I MUST MOVE THE “3 
1828 LET Q=A(R+W,S) 

1838 GO SUB 249¢ 

1849 PRINT "BLOCK" 

185@ LET DE=INT (RNDX6) +1 

186@ IF DE=S OR A(1,DE)=C OR A(2 
,DE)=C OR A(3,DE)=C THEN GO TO 1 
S58 

1878 PRINT "I’M MOVING IT TO ROW 
"sDE 

1888 LET L=1 

1898 IF A(L,DE)=46 THEN LET A(L, 
DE) =A(R+tW,S): LET A(RtW,S)=46: G 
O TO 1919 

1999 LET L=L+i: GO TO 189¢ 

1919 NEXT W 

1928 REM TARGET BLOCK AT R,S NOW 
CLEAR 

1939 REM IS THE OBJECT BLOCK 
CLEAR 

1949 REM FIND OBJECT BLOCK 
1959 LET x=5 

1968 LET Y=1 

1978 IF A(X,Y)=C THEN GO TO 
198@ IF Y<6 THEN LET Y=Y+tl1: GO T 
0 1979 

1998 IF X>1 THEN LET X=X-1: GO T 
0 19692 

28988 PRINT "I CANT FIND THE "3 
2819 LET Q=C 

2428 GO SUB 2499 

2838 PRINT "BLOCK" 
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2049 


FOR J=1 TO 266: NEXT J 


238590 RETURN 


2860 


2078 LET T=X:; 


REM *%¥ C HAS BEEN FOUND ¥* 
LET U=Y: REM 





LOCATION OF C 


2989 
269 
28BID 
K=1: 
21906 
K=2 
2119 
2120 


2119 
2139 


2149 
2159 
2169 
2172 
2182 
2190 
"; DE 
2200 
221G 


DE) =A(T+W,U): 


O TO 
LL2DG 
22308 
22499 
2218 
2269 


L278 
2230 
2290 





IF A(T+1,U)=46 THEN GO TO 2 
IF A(T+2,U)=46 THEN LET TAS 
GO TO 2119 

IF A(T+3,U)=46 THEN LET TAS 
LET DE=INT (RNDX6) +1 


IF DE=U OR DE=S THEN GO TO 


FOR W=TASK TO 1 STEP -l 
PRINT "NOW I'LL MOVE THE "“; 
LET Q=A(T+W,U) 


GO SUB 249¢ 

PRINT "ONE" 

PRINT 

PRINT "I’M MOVING IT TO ROW 
LET L=1 

IF A(L,DE)=46 THEN LET A(L, 


LET A(T+W,U)=46: G 


22350 

LET L=L+1: GO TO 2219 

NEXT W 

REM OBJECT BLOCK NOW CLEAR 
REM ##¥¥ MAKE THE MOVE XX 


PRINT "I’M NOW MOVING THE ” 
LET Q=A(R,S): 
GO SUB 249¢ 
PRINT "QNE" 


LET Z=A(R,S) 
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2386 PRINT " ONTO THE "$3 

2319 IF A(T,U)=46 THEN LET A(T,U 
Y=FLAG 

2328 LET Q=A(T,U) 

2338 GO SUB 249¢ 

2349 PRINT "BLOCK" 

2358 LET A(R,S)=46 

2368 LET A(T+1,U)=Z 

2378 FOR J=1 TO 299: NEXT J 

2388 RETURN 





Naturally enough, the program has to cater for each 
Situation it is required to manage. After the complete 
program listing, we have a little more of Winograd’s 
converstion with SHRDLU, to give you some ideas on how 
you can expand BLOCKWORLD. By keeping the program 
Structured in a way Similar to the present one, you'll find 
you can add complexity without getting lost in a maze of 


Coding. 


The only additional information you need is the input format 
demanded by the program. There are four questions you 
can ask, as follows (and this program expects them in 
upper case, although you can modify that to suit yourself): 


WHERE IS THE color BLOCK (or ONE or CUBE or whatever 
you like)? 


TELL ME WHAT YOU SEE (or CAN SEE). 
SHUFFLE THE BLOCKS. 
PUT THE color BLOCK ON THE color ONE. 


You can quite the program at any time (as indicated by line 
150) by simply pressing RETURN, when you are prompted 


for a question/command. 
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Here, now, is the complete listing of BLOCKWORLD: 


19 REM BLOCKWORD 

15 FLASH @: PAPER 1: 
INK 7: BRIGHT 1 
28 GO SUB 2479: REM INITIALIZE 
3G REM ** PRINT OUT VIEW ¥* 
4G INK 4: CLS : PRINT : PRINT 

5@ FOR X=5 TO 1 STEP -1 

69 PRINT TAB 8; 

76 FOR Y=1 TO 6 

8@ PRINT INK 93 PAPER 3;CHR® ¢ 
A(X,Y))3 

9G NEXT Y 

194 PRINT 

119 NEXT x 

128 INK 7: PRINT : PRINT 

125 BEEP 1,15: FOR I=1 TO S: BE 
EP .1,1: NEXT I 

138 INPUT AS: LET AS=AS+" 

135 BEEP .1,2: BEEP .2,19: BEEP 
.2,3 

149 PRINT AS: PRINT 

15@ IF LEN AS=16 THEN STOP : RE 
M TERMINATING RUN BY JUST PRES 
SING RETURN 

168 IF AS( TO 8)="WHERE IS" THE 
N GO SUB 249 

178 IF AS( TO 12)="TELL ME WHAT 
" THEN GO SUB 195¢ 

18@ IF AS( TO 7)="SHUFFLE" THEN 
GO SUB 128g 

196 IF AS( TO 7)="PUT THE" THEN 
GO SUB 159¢ 


BORDER 1: 























268 PRINT : PRINT : PRINT ">> P 
RESS A KEY TO CONTINUE <<": PAUS 
E 364 

218 GO TO 4¢g 

228 STOP 

23GB REM HEKKKHHH HEH K HK 

248 REM "WHERE IS THE” 

259 LET P=9 

268 LET BS=AS(14) 

276 IF BS="Y" OR BS="R" OR BS=" 
B" OR BS="G" THEN GO TO 3392 

289 IF RND>.7 THEN GO TO 39¢ 

298 PRINT “SORRY,I HAVE NO INFO 
RMATION ON THAT": GO TO 319 

39G PRINT "I HAVE NO DATA WITH 
WHICH TO ANSWER YOU" 

31G RETURN 

S2A REM HHH HK HK HHH KKK HHH 

33 LET M=CODE BS 

346 PRINT TAB 83"> LET ME SEE N 
OW <" 

35@ LET X=5 

36S LET Y=1 

378 IF A(X,Y)=M THEN GO TO 419 

389 IF Y<6 THEN LET Y=Y+t1: GO T 
0 372 

39@ IF X>1 THEN LET X=X-1: GO T 
0 362 

4g@ GO TO 28¢ 

41@ IF X>1 THEN GO TO 919: REM 

ON TOP OF ANOTHER 

42@ IF Y>1 THEN GO TO 539: 
NOT ON LEFT 

ASH REM KHEKKKHHHEKKHHHH 

449 REM ¥%¥% ON LEFT ¥** 

45@ PRINT "IS IT ON THE LEFT" 
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"TH 
IM 


46@ IF A(1,2)=46 THEN PRINT 
ERE IS NOTHING TO ITS 
MEDIATE RIGHT": GO TO 799 


610 
629 
639 
649 


478 LET @=A(1,2) 

489 PRINT 

499 PRINT "BESIDE IT I CAN SEE 
THE" 

548 GO TO 249¢ 

Si@ PRINT "BLOCK” 

5278 GO TO 79¢ 

S38 IF Y¥<6é THEN GO TO 652 

SAG REM HHKKKHHH KKH HHH KH 

55S REM ¥¥% ON RIGHT *¥**¥ 

569 PRINT 

S579 PRINT "IT IS ON THE RIGHT H 
AND SIDE" 

S89 IF A(1,5)=46 THEN PRINT "TH 
ERE IS NOTHING TO THE IM 
MEDIATE LEFT": GO TO 79¢ 

599 PRINT "TO ITS LEFT I CAN SE 
G *4 

688 LET @=A(1,5) 


GO SUB 24590 

PRINT "ONE" 

GO TO 7/79G 

REM HEKKKKKKKKKKEH 


639 REM *#¥*% MIDDLE XX 
6690 PRINT 
6790 PRINT "IT IS IN POSITION "3; 


3" FROM THE LEFT" 
68@ IF A(X,Y-1)=46 THEN PRINT ” 
THERE IS NOTHING TO THE IMMEDIAT 


E LEFT": GO TO 73¢ 
698 LET Q=A(x,Y-1) 
7@8 PRINT "THE "$ 
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7196 GO SUB 246¢ 

729 PRINT "BLOCK IS TO": 
"ITS IMMEDIATE LEFT" 

P38 IF ACK, Y-1)=46 THEN PRINT ” 
THERE IS NOTHING TO THE IMMEDIAT 
E LEFT": GO Ta 79¢@ 

24O LET Q=AC(X%, Y+t1) 


PRINT 


75@ PRINT : PRINT "I CAN SEE TH 
c “4 

768 GO SUB 2499 

77@ PRINT "BLOCK": PRINT " TO I 


TS RIGHT TOUCHING IT" 
LBD REM HHEKKKKKHHKKHHKKKKHHKKEKEHKKHS 
YOO REM KEK ANYTHING ABOVE? ¥#¥¥ 


SID 
S19 
320 
839 


THERE IS NOTHING ABOVE THAT”: 


PRINT 

LET P=x 

IF X=5 THEN GO TO 919g 

IF A(X+1,Y)=46 THEN PRINT 


TO 319 


340 
THE 

heh) 
36d 
BS 7 
33g 
SOB 
PAP 
919d 
928 
P30 
9408 
P39 
P69 
D7 
930 


PRINT ©: PRINT "ABOVE IT IS 


"4 


LET Q=A(X+41,Y) 
GO SUB 2499 

PRINT "BLOCK" 

LET X=x+1 

GO TO 82¢ 

REM XK HHI HII III EI 
REM * ON TOP OF ANOTHER? % 


IF P<>S@ THEN LET X=P 
PRINT 

IF X=1 THEN GO TO 319 
PRINT "IT IS "$3 

PRINT "ON TOP OF THE "3 
LET Q=A(X-1,Y) 


GO SUB 24948 
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GO 


999 PRINT "BLOCK" 

1996 LET X=x-1 

1919 IF X<2 THEN GO TO 319 

1928 GO TO 969 

1939 RETURN 

LAGD REM HKEKKHHHH HHH HHH KH 

1958 REM "TELL ME WHAT” 

1968 PRINT "STARTING FROM THE RI 
GHT" 

i978 LET Y=6 

1989 LET x=5 

1998 IF A(X%,Y)<>46 THEN GO TO 11 
So 

1198 IF Y=1 AND X=1 THEN PRINT " 
FINALLY "; 

1119 IF X=1 AND A(X,Y)=46 THEN P 
RINT "...A SPACE "3: IF Y>1 THEN 
PRINT "THEN" 

1128 IF X>1 THEN LET X=X-1: GO T 
0 19992 

11398 IF Y>1i THEN LET Y=Y-1: GO T 
0 198¢ 

1149 RETURN 

1159 LET L=INT (RND¥2) 

1168 IF L=@ THEN PRINT "ITS THE 
"s: GO TO 1192 

117@ IF L=1 THEN PRINT "MY SENSO 
RS REGISTER THE "3: GO TO 1192 
118@ PRINT "I SEE THE "3 

1199 LET Q=A(xX,Y) 

1298 GO SUB 249¢ 

1218 PRINT "BLOCK" 

1229 IF X=1 THEN GO TO 113¢ 

1239 LET x=x-1 

1249>PRINT "...AND BELOW I 

To...” 
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1250 


30 TO 1186 





1268 RETURN 

127A REM XHKKKHHH KH KK KKK HK IN 
1289 REM SHUFFLE THE BLOCKS 
12949 PRINT 

1398 IF RND>.S THEN INK 3: PRINT 
TAB 73"1TS ABOUT TIME, TOO": Ga 
TO 132g 

1319 INK 5: PRINT "ITS GOOD TO B 

E GIVEN A CHANCE "“": PRINT TAB 43 
"TO DO WHAT I WANT!!!" 

132@ INK 7: FOR x=1 TO S 

1338 FOR Y=1 TO 64 

1349 LET A(X,Y)=464 

1358 NEXT Y 

1364 NEXT X 

1370 LET Yi=INT (RND*¥6) +1 

1389 LET Y2=INT (RND*¥6) +1 

1398 IF Y2=Y1 THEN GO TO 138¢ 
149 LET Y3=INT (RND¥6+1) 

14198 IF Y3=Y1 OR Y2=Y3 THEN GO T 

QO 138¢g 

1928 LET Y4=INT (RND¥6+1) 

1439 IF Y3=Y4 OR Y4=Y1 OR Y2="4 
THEN GO TO 138¢ 

1449 LET A(1,Y1)=82 

1458 LET A(1,Y2)=89 

1468 LET A(1,Y3)=66 

1478 LET A(1,Y4)=71 

1489 RETURN 

149D REM HHKKKKHKH 

1598 REM “PUT THE ... BLOCK ON 

THE ... ONE" 


1519 IF RND>.S THEN PRINT TAB 95s 
"I UNDERSTAND": GO TO 1539 
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1526 PRINT TAB 83"> OK" 

1538 LET BS=A$(9): REM OBJECT BL 
OCK 

1549 IF BS="R" THEN LET L=26 
1559 IF BS="B" THEN LET L=27 
1568 IF BS="G" THEN LET L=28 
1579 IF BS="Y" THEN LET L=29 
1589 LET C#=AS(L) 

1599 LET B=CODE Bs 

1698 LET C=CODE Cs 

1619 LET FLAG=C 

1629 REM *% FIND B® BLOCK x** 
1638 LET X=5 

1649 LET Y=1 

1658 IF A(X,Y)=B THEN GO TO 174¢ 
1668 IF Y<6 THEN LET Y=Y+ti: GO T 
0 1659 

1678 IF X>1 THEN LET X=xX-1: GO T 
0 1649 

1689 PRINT “I CAN’T FIND THE "$3 
1699 LET @=B 

1788 GO SUB 2499 

1718 PRINT "ONE..." 

1728 FOR T=1 TO 296: ‘NEXT T 

1738 RETURN 

1748 LET R=X: LET S=Y 

1758 REM OBJECT BLOCK IS AT R,S 
1768 REM IS TARGET BLOCK CLEAR? 
1779 IF A(R+1,$)=46 THEN GO TO 1 
928: REM "YES" 

1768 IF A(R+2,S)=46 THEN LET TAS 
K=1: GO TO 189g 


1/799 
THEN 
1809 
1310 


LET TASK=3: 
LET TASK=2 
FOR W=TASK TO 1 STEP 
PRINT 


IF A(R+3,S) =46 


ae | 


"I MUST MOVE THE "3 
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1826 LET QG=A(R+tW,S) 

18638 GO SUB 2499 

1849 PRINT "BLOCK" 

1859 LET DE=INT (RND¥6) +1 

186@ IF DE=S OR A(1i,DE)=C OR A(2 
»DE)=C OR A(3,DE)=C THEN GO TO 1 
a5g 

1878 PRINT "I’M MOVING IT TO ROW 
"$DE 

1889 LET L=1 

1896 IF A(L,DE)=46 THEN LET ACL, 
DE)=A(RtW,S): LET A(RtW,S)=46: G 
Oo TO 191¢ 

1996 LET L=L+1: GO TO 1899 

191G NEXT W 

1928 REM TARGET BLOCK AT R,S NOW 
CLEAR 

1939 REM IS THE GBJECT BLOCK 
CLEAR 

1949 REM FIND OBJECT BLOCK 
1959 LET x=5 

1968 LET vY=1 

197G IF A(X,Y)=C THEN GO TO 2676 
1938@ IF Y<6 THEN LET Y=Y+ti: GO T 
0 1979 

199@ IF X>1 THEN LET X=xX-1: GO T 
0 1969 

2608 PRINT "I CANT FIND THE "$3 
2818 LET @=C 

2928 GO SUB 2469 

283 PRINT "BLOCK" 

2049 FOR J=1 TO 288: NEXT J 

2859 RETURN 

2868 REM *¥* C HAS BEEN FOUND ** 
2076 LET T=X: LET U=Y!: REM 
LOCATION OF C 
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2880 
268 

2IBODP 
K=1:° 
219608 
K=2 

2119 
2129 
2119 
2139 


IF A(T+1,U)=46 THEN GO TO 2 
IF A(T+2,U)=46 THEN LET TAS 
GO TO 211g 

IF A(T+3,U)=46 THEN LET TAS 
LET DE=INT (RNDX6) +1 

IF DE=U OR DE=S THEN GO TO 


FOR W=TASK TQ 1 STEP -l 


2148 PRINT "NOW I'LL MOVE THE "; 

2158 LET Q=A(T+W,U) 

21468 GO SUB 249¢ 

2178 PRINT "ONE" 

2188 PRINT 

2198 PRINT "I’M MOVING IT TO ROW 
"$DE 

2298 LET L=1 

2218 IF A(L,DE)=46 THEN LET A(L, 
DE)=A(T+#W,U): LET A(T+W,U)=46: G 
O TO 223g 

2228 LET L=L+1: GO TO 221@¢ 

2238 NEXT W 

2249 REM OBJECT BLOCK NOW CLEAR 
2258 REM X¥¥X¥¥ MAKE THE MOVE ®X%% 
2268 PRINT "I’M NOW MOVING THE " 
9 

2278 LET @=A(R,S): LET Z=A(R,S) 

2288 GO SUB 2499 

2298 PRINT "ONE" 

2388 PRINT " ONTO THE "$ 

2318 IF A(T,U)=46 THEN LET A(T,U 
)=FLAG 

2320 LET Q=A(T,U) 


2330 


GO SUB 249f 
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2349 
2358 
2369 
23768 
2389 
239D 
24908 
241d 
FD ”" 
2420 





PRINT “BLOCK” 
LET A(R,S)=46 
LET A(T+1,U)=Z2 
FOR J=1 TQ 26968: 
RETURN 


REM KXEKKKKKKKKKHHKHKK 
REM ** COLOR NAME *+* 


NEXT J 


IF Q@=CODE "R” THEN PRINT 


IF Q=CODE "YY" THEN PRINT 
ELLOW "3; 


“ie = 


=“ 2 


7 oo. 2 


"cS" s 


REM 


REM 


REM 


REM 


2439 IF @=CODE "B" THEN PRINT 
LUE "$ 

2449 IF Q=CODE "G" THEN PRINT 
REEN "$3 

2459 RETURN 

2Z46GD REM HHKKKHHKHH 
2478 REM INITIALIZE 
24e@ CLS 

2499 RANDOMIZE 

2598 DIM A(S,64) 

2519 FOR X=1 TO 5 
2528 FOR Y=1 TO 6 
2538 LET A(X,Y)=46 
2549 NEXT Y 

2558 NEXT xX 

256M LET A(1,2)=CODE 
D BLOCK 

2578 LET A(i,3)=CODE 
LLOW BLOCK 

2589 LET A(1,4)=CODE 
UE BLOCK 

2599 LET A(1,5)=CODE 
EEN BLOCK 


2600 


RETURN 
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wp 


lie 


"PB 


M{S 


YE 


BL 


GR 


IMPROVING THE PROGRAM 


Although BLOCKWORLD performs quite creditably in its 
present form, there is much that can be done to it to 
develop it. AS you have seen, it has a simple modular 
structure, with a single subroutine to cope with each kind 
of command given to it. Therefore, to increase BLOCK- 
WORLD’s abilities, you can add to the simple vocabulary 
recognition section at the start of the program, and use this 
to send action to new subroutines. 





You could start, perhaps, by giving BLOCKWORLD the 
ability to move a block to the right, or to the left, rather than 
just ‘on top of another block. Once you ve managed to do 
this (and made sure it has a means of rejecting ‘impossible’ 
demands, such as trying to put a block to the right of one 
which is already-at the very right-hand end of the frame), 
you could try adding a fifth block, or perhaps a shape — or 
more than one — which is not a block at all. Finally, you 
could create your own BLOCKWORLD program from 
scratch, in which the blocks and other elements can be 
moved in three dimensions, so ‘in front of’ and ‘behind’ are 
valid commands. 


To give you some ideas of what can be done, we'll look at 
some more conversation with that landmark program, 
SHRDLU, written by Terry Winograd. The brief portion of 
conversation given earlier in this section was extracted 
from the longer conversation which follows. First of all. 
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Pick up the big red block. 
> OK 


Grasp the pyramid. 


>I DON'T UNDERSTAND WHICH PYRAMID YOU 
MEAN 


Find the block which is taller than the 
one you are holding and put it into 
the box. 


>BY "IT", I ASSUME YOU MEAN THE BLOCK 
WHICH IS TALLER THAN THE ONE I HAVE 
> OK 
What does the box contain? 
>THE BLUE PYRAMID AND THE BLUE BLOCK 
What is the pyramid supported by? 
>THE BOX 
How many blocks are not in the box? 


>FOUR OF THEM 
Is at least one of them narrower than the 


one which I told you to pick up? 
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>YES, THE RED CUBE 
Is it supported? 
>YES, BY THE TABLE 


Can the table pick up blocks? 
>NO 
Can a pyramid be supported by a block? 
>YES 
Can a pyramid support a pyramid’? 
>I DON'T KNOW 
Stack up two pyramids. 
>I CAN'T 


The blue pyramid is mine. 
>I UNDERSTAND 


Impressive as this is, it fades almost into insignificance 
when compared with the following exchange, which 
includes logic manipulation which even human beings 
would find difficult to follow. This next segment followed on 
directly from the one above: 


I own all the blocks which are not red, 
but I don't own anything which 
Supports a pyramid. 


>I UNDERSTAND 


Do I own the box? 





>YES, TWO THINGS: THE BLUE BLOCK AND 
THE BLUE PYRAMID 


Will you please stack up both of the red 


blocks and either a green cube or a 
pyramid? 
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Is there a large block behind the 
pyramid? 
YES, THREE OF THEM: A LARGE RED ONE, A 
LARGE GREEN CUBE AND THE BLUE ONE 


How many things are on top 
cubes? 
2I'M NOT SURE WHAT YOU MEAN BY “ON TOP 


OF" IN THE PHRASE "ON TOP OF GREEN 
CUBES" 


>DO YOU MEAN: 


1 - DIRECTLY ON THE SURFACE 
2 - ANYWHERE ON TOP OF? 


2 


Had you touched any pyramid before you 
put the green one on the little cube? 
>YES, THE GREEN ONE 
When did you pick it up? 
>WHEN I WAS STACKING UP THE RED CUBE, A 
LARGE RED BLOCK AND A LARGE GREEN CUBE 
Why? 
>TO GET RID OF IT 
Why did you do that? 
>TO CLEAR OFF THE RED CUBE 
Why did you clear off that cube’? 
>TO PUT IT ON A LARGE GREEN CUBE 
Why did you do that? 
>TO STACK UP THE RED CUBE, A LARGE RED 
BLOCK AND A LARGE GREEN CUBE 


Why did you do that? 
>BECAUSE YOU ASKED ME TO 
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hat you've seen what 
What could we add to that? Now t : . 
SHRDLU and BLOCKWORLD can do, go and do likewise. 
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No study of ‘natural language processing’ would be 
complete with a discussion of ELIZA, the most famous 


program of this type (and, at one stage, the most famous 
Computer program of all). 


Joseph Weizenbaum, Professor of Computer Science at the 
Massachusetts Institute of Tehcnology, created ELIZA in 
1964-66. The program was designed to take on the role of 
a Rogerian psychotherapist (Weizenbaum insists it was 
intended to parody such a practitioner). A psychotherapist 
of Carl Rogers’ school, works by refusing to lead the 
conversation with a patient, preferring instead to reflect the 
patient's remarks back on themselves, so the conversation 
direction is constantly dependent upon the patient. 








The reaction to the program — once it was made public — 
at first startled, and then seriously worried Weizenbaum. As 
a result of the train of thought engendered by the shock of 
its reception (which well discuss in a moment), Weizen- 
baum left MIT for two years to ponder the wider 
implications of the ELIZA experience, and during that time 
wrote the very important work Computer Power and Human 
Reason (San Francisco: W. H. Freeman and Co., 1976). 
There is quite a bit of material in this book that | don't agree 
with, but this in no way diminishes the importance of the 
work. Regardless of my views, it is a work | urge you to 
read if you are seriously interested in artificial intelligence, 
and in the relationships and dependencies which we see 
developing between man and machine. 
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You use Weizenbaum’s program by typing in your side ofa 
‘conversation’, to which the program replies, using its inner 
stock of answers. Here is part of a typical exchange with 
the ELIZA implementation given in this book: 


>? I AM AFRAID OF SPEAKING IN PUBLIC 


DO YOU THINK IT'S ABSOLUTELY NORMAL 
TO BE AFRAID OF SPEAKING IN PUBLIC 





>? I THINK A LOT OF PEOPLE ARE 


DO YOU REALLY THINK SO? 


ES uaa cE ec OR SEE Ee GE Ee ia qa 


>? YES I DO 


YOU SEEM VERY CERTAIN ABOUT IT 


>? TALKING TO A COMPUTER IS RATHER OOD 
ARE YOU THINKING ABOUT ME IN PARTICULAR 


Weizenbaum chose the name ELIZA for his program 
because he said, like the Eliza in Pygmalion, it could be 
taught to speak increasingly well. The original ELIZA 
program was written in two parts. The first part analysed 
the user input, and the second part was a ‘script’. Different 
scripts were designed for different topics, and DOCTOR 
was one of the scripts. (Other scripts could well have held 
discussions on ancient ships, real estate, currency 
exchange rates or whatever.) 
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press in due course (“ELIZA — A Computer Program for the 
Study of Natural Language Communication Between Man 
and Machine’, Communications of the Association for 
Computing Machinery, vol. 9, no. 1 [January 1965], pp. 
36-45) and soon a number of versions of it — based on his 


description — were running at other institutions in the 
United States. 


Weizenbaum reports that there were three distinct events 
which “shocked’ him, as ELIZA’s use became widespread. 
Firstly, he was horrified (and | find it hard to appreciate why 
he was as alarmed as he reports) to discover that people 
quickly became involved with the program. 


He reports that even his secretary, who had worked with 
him on the program's development for many months, and 
therefore should have been one of those best situated to 
Know it was only a program, started to relate to it emotion- 
ally. On one classic occasion, his secretary started using 
the program and after only a few sentences of dialogue had 
been exchanged became embarrassed and secretive. She 
asked if he would leave the room while she continued the 


‘Conversation. 


Weizenbaum suggested, on another occasion, that he 
should rig up a printer to get a transcript of the talks people 
were having with ELIZA. This idea was greeted with horror 
as it would mean he would be prying into very private 


conversations. 


Le. 


He was bothered by how strongly people identified with the 
program, given it a personality, and sharing their most 
intimate thoughts with it. he said he had not realised the 
‘‘oowerful delusional thinking” a fairly simple program 
could create in normal people. 


THE RUSSIAN CONNECTION 





Pamela McCorduck, in her splendid book Machines Who 
Think (San Francisco: W. H. Freeman and Co., 1979) con- 
forms the effect the program can have. She reports that the 
first time she saw ELIZA up and talking was at the Stanford 
Computation Center where an internationally respected 
computer scientist from the Soviet Union was being shown 
around. 


He sat down at a computer connected to a version of the 
program written by one of Weizenbaum’s colleagues, 
Kenneth Colby (who welll be meeting again, shortly) and 
Started typing. McCurduck reports watching in embarrass- 
ment as — triggered by a phrase such as TELL ME ABOUT 
YOUR FAMILY — the scientist proceeded to discuss some 
personal worries in some depth, becoming oblivious to 
those around him. 





Weizenbaum found that some accesses to the program, via 
time-sharing terminals scattered around the university, 
often went on for an hour or more, late into the night. He 
received telephone calls from people who desperately 
wanted access to the program for a short time, in order to 
sort out their problems. 


Colby, who we mentioned a short time ago, had met 
Weizenbaum some time earlier, at Stanford. Colby — 
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Professor of Psychiatry at UCLA — was interested in 
artificial intelligence. He thought its findings might possibly 
lead to new views on human thinking (and Colby hoped to 
gain new insights into neurotic behavior through his 
Studies). Before Weizenbaum’s original paper on ELIZA 


appeared, a short note on it was published by Colby in the 
Journal of Nervous and Mental! Diseases. 


The two men split shortly after this, primarily because 
Weizenbaum strongly disagreed with Colby’s claims that 
the program could have genuine therapeutic applications, 
Dut also because it seemed that Colby did not properly 
credit Weizenbaum for the original work on ELIZA. 


Colby and two colleagues suggested that an improved 
version of DOCTOR would have genuine therapeutic use. 
Colby thought it could be made available to mental 
hospitals which were short of staff, so patients could 
access the program (via time-sharing systems) on demand. 
Weizenbaum was horrified. He says he thought it was vital 
that there be, as a Starting point from which one person 
could assist another in coping with problems, an emphatic, 
‘fellow-human’ recognition of those problems. 





SHORT, SHARP SHOCKS 


Weizenbaum was shocked that even a single practicing 
osychiatrist could advance the view that the healing 


process could be replaced purely by mechanical 
technique. Such a thought had never crossed his mind. 


the ability to do SO. 
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Colby was not chastened by Weizenbaum’s response. He 
was, it seems, perfectly happy to consider the possibility of 
pure technique proving efficacious. Further he defended 
his view, saying that only laymen confused psychotherapy 
with marriage. A professional working relationship between 
therapist and patient was what mattered he said. 





More to the point, Colby attacked Weizenbaum for the 
Claim that there were areas in which the computer should 
never be employed. Why not, asked Colby. Just because 
Weizenbaum says so? Does Weizenbaum believe that 
helping people by computer is somehow worse than letting 
them suffer? And should not a therapist explore every 
possible tool which is available, just in case one of them 
proves to be genuinely effective ? 


Colby’s view iS more or less supported by Carl Sagan who 
IS quite at peace with the idea of an ELIZA-like program 
being available —for a few dollars a session — in specially 
constructed areas, somewhat like telephone booths 
(Broca s Brain, London: Coronet Books, 1980, p. 300). 





Solution to this problem. 
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(1976, “An Unreasonable Book’’, in Three Reviews of J. 
Weizenabum’s Computer Power and Human Reason, Memo 
AIM-291, Stanford Al Laboratory, November), advances the 
view that if there are functions which a computer should not 


be taught to carry out, these should not be done at all, by a 
person or a machine. 


Others agree. In the book Artificial Reality (1983: Addison- 
Wesley Publishing Co., Reading, MA; p. 168), Myron W. 
Krueger suggests that even if Weizenbaum’s horror at the 
thought of using his program — or a development of it — for 
genuine therapy was real, such fear was groundless and 
misplaced. 


However, regardless of my views (or others’) of Weizen- 
baum’s thesis, and of the value of the book (I've already 
said | think you should read it, if only to give your own 
mental mill grist regarding the debate), there is no doubt 
that ELIZA, as DOCTOR, has proved an extremely enter- 
taining companion. You will soon prove this assertion for 


yourself. 


As well as enjoying the program, you ll also be in a position 
to judge whether or not it actually suggests that intelli- 
gence resides in the machine which is running it. Adrian 
Berry (in The Super-Intelligent Machine, London: Jonathan 
Cape Ltd., 1983; p. 63) concludes that ELIZA (and PARRY, 
a program which is designed to mimic a paranoid patient) Is 
a pretty poor advocate for the possibilities of true artificial 


intelligence. 
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You'll find that your own views will sway back and forth as 
you use the program. When the DOCTOR produces a 
particularly inspired or appropriate remark, you'll feel this 
is sure evidence of intelligence, on at least some level. At 
other times, you'll discover the DOCTOR is great simply for 
entertainment. Nobody, you claim, could manage to ask 
such absurd questions (DID YOU COME TO ME BECAUSE | 
WAS DEAD ? one implementation asked Berry, he reports in 
the book mentioned above) or innocently create superb 
nonsequiturs as the following exchange which comes from 
the sample run produced by the program in this book (the 
DOCTOR is speaking in upper case): 


I feel you're evading my questions 


DO YOU OFTEN FEEL I AM EVADING YOUR 
QUESTIONS 


I do when I talk to a computer 


THINGS HAVE A HABIT OF HAPPENING AT 
MORE OR LESS THE RIGHT TIME 


What can one do in response to a statement like that 
except raise a toast to Joseph W., progenitor of ELIZA and 


its offspring, and hope for more? | think it’s time we turned 
back to the computer. 


THE PROGRAM 
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the response to it from the DOCTOR: 


THE DOCTOR IS IN...PLEASE STAND BY 





WELCOME TO ANOTHER SESSION 
WITH THE DOCTOR..... 





HELLO... 


>? HI THERE DOC 


HI TO YOU...RELAX NOW, AND LET'S TALK 
ABOUT YOUR SITUATION 


emp Gr Gaenegar aap @ep of @Pap 4 2 @ ab 4b a= = GE EEE SE aT = = OF" SEE OE SF &— CF OF! CO OE = oz 





>? I HAVE A SERIOUS PROBLEM 


HOW CAN I HELP YOU WITH A SERIOUS 





7? IT IS TO DO WITH MY MAD TEACHER 
ARE YOU CERTAIN THAT IT'S TQ DO WITH 
YOUR MAD TEACHER 


>? YES I AM VERY CERTAIN 


YOU'RE PRETTY POSITIVE 


a=a= euss G20 Ga a= awe Ger 68 @&=— GE @ Ge Or 2 O OB OO" OO SP SP OO” oo SE = oo owe” = ap - Gu». 


>? IT COMES FROM WRESTLING WITH IT DAY 
AND NIGHT 
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EARLIER YOU MENTIONED YOUR MAD TEACHER 
TELL ME A BIT MORE ABOUT THAT 


>? IT STARTED WHEN I WAS TEN YEARS OLD 


THAT'S VERY INTERESTING 


>? I AM AFRAID TO GO TO SCHOOL NOW 


DID YOU COME TO ME BECAUSE YOU 
ARE AFRAID TO GO TO SCHOOL NOW 


ee Ge eS Gee C= 4 ae Cae Ges Ge Be B= Ge? Gar Ge Gee Ce Gir > Ge fee GE Ee Gee GS Ge Cie Ce QE Ger dees Ee am 


>? I THINK THAT IS TRUE 


BUT YOU ARE NOT SURE THAT IS TRUE 


naw ep 62 @ea 2 ea EG C= =r C= B- ew BE Beh Be ep C= ewe aw EE ow Sn we SEP = = ow OO Ge O==_ =| 


>? PERHAPS THERE ARE OTHER REASONS 
THAT'S VERY INTERESTING 


>? I ALSO HAVE PROBLEMS WITH 
MY CRAZY BROTHER 


PLEASE ELABORATE ON THAT 


>? I THINK HE HATES ME 
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DO YOU DOUBT HE HATES YOU 


one wean G&G ec Be @ Ss a © @— @— GF |] SB" SH TH ws B— w= © Tw ww ww ele Ul LUCUCCC—PsP|= 


>? I FEEL YOU'RE EVADING MY QUESTIONS 


DO YOU OFTEN FEEL I AM EVAUING YOUR 
QUESTIONS 


nna eee 62 ap Gea Owe = 2» be BP = Ss = EP = = SF EF = OD er OO "| CO Sw SE OS OE = 


>? I DO WHEN I TALK TO A COMPUTER 


THINGS HAVE A HABIT OF HAPPENING AT 
MORE OR LESS THE RIGHT TIME 


>? THAT'S A DUMB ANSWER FROM A COMPUTER 


WHAT ASPECT OF COMPUTERS INTERESTS 
YOU THE MOST? 





>? I WANT TO BEAT UP MY BROTHER 


WHAT WOULD IT ADD TO YOUR LIFE IF 








183 


LET'S EXPLORE THAT STATEMENT A BIT 


>? I FEEL INFERIOR WHEN HE PUTS ME DOWN 


DO YOU ENJOY FEELING INFERIOR WHEN HE 
PUTS YOU DOWN 


quae ae w=" Gee 2Ee— 4 Gee G@iew es 2S] oe 6 oe GS ae C= -<ee G4 eae 4 4 SSE eee ee Cee eee Eee Cee eee ee ae 


>’ OF COURSE I DON'T ENJOY IT 


DOES ANY CONNECTION BETWEEN THAT AND 
YOUR BROTHER SUGGEST ITSELF? 


>? THE LINK IS OBVIOUS TO ANYONE 


PLEASE ELABORATE ON THAT 


es eee ee ee Ee CP ee CP 2p Se SP Ee 4D SS A CP SB CP" SP SCF S*@Dr SCO STP Ce DG CE ep Ce s_ = E_ 


>? I WANT SOME ASSISTANCE WITH MY FEARS 





WHAT WOULD IT MEAN TO YOU IF YOU 
GOT SOME ASSISTANCE WITH YOUR FEARS 


Eee eee SE ee Ses Se See Oren |p ee oe = ao EB > Ga enw = eae EC — EF Eo= SP G2 a G- EGE ab 


>? I THINK IT WOULD MAKE ME BRAVER 


DO YOU DOUBT IT WOULD MAKE YOU BRAVER 


>? I ALWAYS WANT TO RUN AWAY 
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ISN'T 'ALWAYS' A LITTLE STRONG? 


a Gee ap Ghee an aanpe—> Gee @p CFP ep Brew Se = a= Ge = aw ae. wr a 2 Cn = oe EF ap C8» app == gm 


>’? I GUESS IT MIGHT BE 


WHY DON'T WE GO BACK AND DISCUSS 
YOUR FEARS A LITTLE MORE? 


== Gi asa one ae aes a 6 C= GD Brew Br ap See ee - Bap Sp ee Se ae Se SE SE Oe CE CD ODP = EP CP EE a 


The sample run is fairly impressive, and once you’ve used 
the program a few times, you're certain to discover the kind 
of phrases and words which it responds to best. As well, as 
| pointed out earlier, it makes a good demonstration to run 
for those who are not used to computers. (But be careful in 
case some of that ‘powerful delusional thinking’ comes into 
play, and you find one of your friends confiding his or her 
darkest thoughts to your machine). 


HOW IT WORKS 





The program is, in essence, simple. The computer accepts 
an input string from the user, then scans through this, 
looking first for ‘trigger phrases’ (such as | THINK or WHY 
CAN’T |) for which it has a stock reply. It it fails to find any of 
these, it will look for ‘trigger words’ (such as COMPUTER), 


and similarly choose one of three pre-programmed replies 
to that trigger. 


If it doesn’t find a trigger, it will look to see if it has stored a 
ohrase of yours from an earlier input (Such as ATTITUDE or 


MAD TEACHER) and, if so, create a question around that. If 
all these fail, it will choose from a set of random replies (I'M 


NOT SURE | UNDERSTAND THAT FULLY or the like) 
designed to keep the conversation moving. 


EARLIER YOU MENTIONED YOUR ATTITUDE 
TELL ME A BIT MORE ABOUT THAT 


>? IT IS A WORRY TO ME 


WHAT DEGREE OF CERTAINTY WOULD YOU 
PLACE ON IT BEING A WORRY TG YOU 


au G== @== G@== a= ame a= Gea 8D eb 62 = GO Ge GG, GaP eg, up Ques Gs= aaa @e- G@ip~ Gan Ch 4s GS Gas = ca 


>’ A LOT BECAUSE THAT IS THE WAY IT IS 





WHAT OTHER REASONS COME TO MIND? 


THE REPLY DATABASE 





The most important part of the program, and the one which 
you can have the most fun modifying, and adding to, is the 
huge set of DATA statements at the end of the program. 
(You'll see the very last DATA statement is a series of 
asterisks. This is to terminate the READing, and to allow 
you to add extra bits of DATA without then having to count 
right through to see how many there are. The DIM state- 
ments for the string arrays to hold this DATA are larger than 


they need to be, so that you can add extra words if you 
want to.) 


186 


You'll see that the first set of DATA statements cover 
‘Conjugations’: 


14186 REM * DATA xX 
1420 REM *¥ CONJUGATIONS ¥¥ 


1438 DATA "AM", "ARE", "WAS", "WERE 
","rI",”"you", "MY", "YOUR" 

1449 DATA "YOU'VE", "I’° VE". "YOUR" 
. "MY", "ARE", "AM" 

1458 DATA "YOU'RE", "I AM", "YOURS 
", "MINE", "YOU", "ME", "ME", "You", " 
HL NH" 





The computer uses these in exactly the same way it 
handled English in TRANSLATE, swapping one for its pair. 
This means that if you say, for example, | AM GETTING 
YOUR MESSAGE the computer could simply change the 
words around and Say back in reply YOU ARE GETTING MY 
MESSAGE. In fact, this is the form this DOCTOR program 
Originally took, and even this limited kind of exchange can 
be significantly interesting. 


After this come the major DATA statements, which look 
after most of the phrase swapping. They are of two types. 
The first tyoe uses either a word or a short phrase (which 
was used as the start of the user input) and then chooses 
the entire reply from the database, without taking any 
words directly from the user input. In these examples, the 
first DATA statement of each four is the ‘trigger’ from the 
user inout and the next three are those from which the 


computer chooses its reply: 





1832 DATA "HOW" 
18949 DATA "HOW WOULD YOU SOLVE T 


HAT?" 
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1858 DATA "IT WOULD BE BEST TQ A 
NSWER THAT FOR YOURSELF" 


1869 DATA "WHAT IS IT YOU’RE REA 
LLY ASKING?" 

2838 DATA "BECAUSE" 

2848 DATA "IS THAT THE REAL REAS 
ON? * 

26458 DATA "WHAT OTHER REASONS CO 
ME TO MIND?” 

2GEG DATA "WHAT ELSE DOES THAT E 
XPLAIN?”® 


Of greater interest are the phrases which are triggered to 
be used as the start of the computer's reply, with the 
balance of the answer coming from the original user input 
(after any needed conjugation changes have been made): 


1466 REM * TRIGGER WORDS/REPLY P 


HRASES * 
1478 DATA 
1488 DATA 
1498 DATA 
LPFUL IF 

1598 DATA 
ye 

1672 DATA 
1688 DATA 
CAUSE YOU 
16928 DATA 
N%" 

174 DATA 
OLUTELY 


23190 DATA 
2328 DATA 
23938 DATA 


"I NEED" 
"WHY DO YOU NEEDX" 
"WOULD IT REALLY BE HE 
YOU GOT%" 

"ARE YOU SURE YOU NEED 
"T AM" 

"DID YOU COME TO ME BE 
AREX" 


"HOW LONG HAVE YOU BEE 
"DO YOU THINK IT’S ABS 
NORMAL TO BEX" 


"IS IT" 
"DO YOU THINK IT IS" 
"IN WHAT CIRCUMSTANCES 


WOULD IT" 
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2299 DATA "IT COULD WELL BE THAT 
yj" 


You ll see that each of the phrases which form part of the 
reply end with ‘*, which the computer uses as a flag to 
indicate that part of the original input must be modified to 
complete sentence. 


Let's see how it works in practice. Suppose the user input 
was aS follows: 





| WANT TO SHOW YOU THE TRUTH 


The DOCTOR scans through the contents of string array C$ 
and finds the element which contains ‘| WANT’. The 
equivalent elements of arrays D$, ES and F$ contain the 
opening portions of suitable replies, aS you Can see: 


1758 DATA "I WANT” 
17668 DATA "WHAT WOULD IT MEAN TO 


YOu ITF YQUGAT#” 
1779 DATA "WHY DO YOU WANT" 


1788 DATA “WHAT WOULD IT ADD TQ 
YOUR LIFE IF YOU GOT" 


The DOCTOR generates a random number between one 
and three and prints the D$ element if it is one, the ES if two 
and the FS if three (having previously checked to see if it 
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Then, it goes through the balance of the user input (the 
material following | WANT), treating it in exactly the same 
way (using the same code, in fact) as the TRANSLATE 
program changed English words to French ones, swapping 
such things as YOU for | and ARE for AM (so | AM becomes 
YOU ARE). It prints up each word as it processes it, leaving 
the user-inout word unchanged if there is nothing which 
needs swapping in the conjugation section. 





The original phrase ... 
| WANT TO SHOW YOU THE TRUTH 


_,. has then been transformed to... 





WHY DO YOU WANT TO SHOW ME THE TRUTH 


This is ‘all’ the program does, but as you ll soon be proving 
for yourself, it creates a remarkable effect. 


If it cannot find a trigger phrase to combine with part of the 
user input, the DOCTOR looks for a trigger word, anywhere 
in the input (rather than just at the beginning, where it looks 


for phrases). Trigger words include COMPUTER and 
FRIENDS, producing results like these: 


WHY DO YOU BRING UP THE SUBJECT OF FRIENDS ? 


PLEASE TELL ME MORE ABOUT YOUR FRIENDSHIP 


...and... 
WHAT ASPECTS OF COMPUTERS INTERESTS YOU THE 
MOST 








ARE YOU THINKING ABOUT ME IN PARTICULAR? 


THE PROGRAM STRUCTURE 


The program begins, like the others in this book, with a call 
to an initialisation routine (this one starting at 1140). After 
that, the program prints a blank line, then the dashed line 


ruling off one exchange from the other, followed by another 
blank line. 


1G REM DOCTQAR 

153 BRIGHT 1: FLASH @: PAPER 1: 
INK 7: BRIGHT @: BORDER 1: INVE 
SE @: CLS 

26 GO SUB 11490: REM INITIALISE 
28 PRINT : PRINT INK 65 BRIGHT 


49 POKE 23658,2@@: PRINT ">"3: 
INPUT X$: PRINT Xs’ 


59 IF X$="" THEN STOP : REM QU 
IT BY PRESSING ENTER 
68 PRINT 


76 IF X$=Z% THEN PRINT "PLEASE 
DON’T REPEAT YOURSELF": GO TO 3 
eg 
SG LET 2%=X$! LET X$=Xs+" 
S@ IF X$( TO 7)="GOQODBYE" THEN 
PRINT "QK. SEE YQU AGAIN SOMETI 
ME.": STOP 


Line 40 prints the ‘>’ prompt, then accepts the user input. 
If the input is the empty string (that is, the user has just 
oressed RETURN rather than entering a phrase) the 
program terminates. 
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Line 60 prints a blank line, and line 70 compares this input 
(X$) with the one given the previous time (ZS) and if it finds 
they are the same says PLEASE DON’T REPEAT YOURSELF 
and then returns to 30 for new input. Line 80 sets the new 
input equal to Z$, for checking the next time around. If the 
first seven letters of the input spell out GOODBYE the 
computer replies with OK, SEE YOU AGAIN SOMETIME and 
terminates the program. 


Having survived this series of hurdles, the work begins in 
earnest: 


1a REM *¥* LOOK FOR TRIGGER PHR 
ASES AT START OF INPUT x 

116 LET L=@ 

170 LET L=L+1 

136 LET LN=CODE C#(L,1)-4¢ 

146 IF xX$( TO LN-1)=C#(L,2 TOL 
N) THEN GO TO 368: REM TRIGGER F 
CUND 

i15@ IF L<K THEN GO TO 124 





It scans, using the elements of the C$ array, the first portion 
of the input, looking for a matcn. If it finds one, action moves 
to line 360 where the job of matching the input phrase with 
the rest of the player input is carried out: 


36G PE! ¥% TRIGGER PHRASE FOUND 
AT START OF INPUT 

37G LET T=INT (RND¥3) +1 

32G IF T=1 THEN LET G#=D$(L) 
39@ IF T=2 THEN LET GS=E%(L) 
49@ IF T=3 THEN LET G#=FS(L) 
416 REM ¥¥ CHECK TO SEE IF ENDS 
WITH ASTERISK.IF SO NEEDS PART 
OF INPUT ADDED ¥* 
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4206 LET FLAG=G 

925 FOR R=65 TO 1 STEP -1: IF G 
S$(R)=" " THEN NEXT R 

4390 IF GS(R)="*#" THEN LET FLAG= 
1: LET Gt=G$( TQ R-1) 

499 PRINT GS5" "5 

45@ IF FLAG=@8 THEN GO TO 36: RE 
M NQ FURTHER MATERIAL NEEDED 

4646 REM *¥ NOW USE BALANCE OF I 
NPUT ** 

4635 FOR R=LEN KSB TQ 1 STEP -1: 





IF XS$(R)=" " THEN NEXT R 
466 LET XG=xXS 6 TO R) 
4793 LET xS$=" "4+XE(LNt+1 TO LEN * 


$)+" 

FED REM HHHKKHKHHH KH HHK KKH HK KK 

49@ REM ¥¥ CONJUGATION CHANGES 
¥¥ 

5a@ REM ¥ ALSO LOOK FOR "MY"TQ 
TRIGGER "MYFLAG" (KS) % 

519 LET LN=LEN X% 

S28 LET M=o 

S36 LET M=M+1 

=4@ IF M=LN THEN GO TO 32 

SS@ IF XS(M)=" " THEN GO TO 572 

569 GO TO 53a 

S7@ LET X=M+1 

S8e@ LET Y=@ 

Soo LET Y=¥+1 

SOS IF LEN X#<X+¥Y THEN LET X#=X 
$+" 

698 IF X®(X+Y)=" " THEN LET @= 
X$(X TO X+¥-1): GO TO 630 

618 IF X+¥>25@ THEN GO TO 53¢ 

628 GO TA 592 

636 LET MN=@ 








, 1) -49) 
DE BS(MN,1)-48)3" "3: 
678 IF MN<KK THEN GO TO 64@ 


689>PRINT QS; ”" “5 
698 GO TO 339 





The section from lines 370 through to 400 chooses one of 
the three reply openings, from D$(n), ES(n) and F$(n). Line 
420 sets a flag (called FLAG) to zero, and then uses line 
430 to see if the chosen phrase ends with an asterisk 
(telling it, you'll recall, that this ts only a partial reply, with 
additional material needed from the user input). 


If it finds that there is an asterisk at the end, the flag is set to 
one and the final part of line 430 strips the flag off. 


Line 440 prints the chosen phrase. If FLAG still equals zero 
(line 450) the program goes back to line 30 for the next 
input. If not, the DOCTOR must scan through the balance of 
the user input, making the conjugation changes (using, as | 
pointed out earlier, the Same code as TRANSLATE 
employed) needed. 


As well, as the REM statement in line 500 points out, the 
program is looking for the word MY to trigger K$, the 
‘myflag.. If it finds the word MY in the input (Such as in the 
sentence IT IS TO DO WITH MY MAD TEACHER) and the 
‘myflag’ (K$) has not been assigned, it will take the balance 
of the user input from the word MY and assign that to K$, so 
— inthis case — it would be set to MAD TEACHER. Later, if 
the DOCTOR cannot find a trigger in a user input, it can use 
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K$ with other phrases (such as EARLIER YOU MENTIONED 
YOUR MAD TEACHER. TELL ME A BIT MORE ABOUT THAT) 
to keep the conversation going. The effect on users of this 
tiny piece of trickery can be quite extraordinary. 


Ifno trigger phrase has been found, the computer looks for 
a trigger word, using this section of code: 


160 REM ¥*® PROGRAM GETS HERE IF 
ON TRIGGER PHRASE FOUND ¥+* 

1706 REM ¥** NOW LOOK FOR TRIGGER 
WORDS WITHIN INPUT ¥# 

1896 LET AS=" "“4+XG+" 

1°@ LET M=LEN XS 

29a LET L=9 

Z21G LET L=L+t+1 

220 IF L=M-1 THEN GQ TO &8O@: 
M NO TRIGGER FOUND 
2oO IF xXB(L)I=" " 


RE 


THEN GO TO 259 


248 
LOG 
Lod 
278 
280 


ABCK 


29D 
2G 
312 
3290 


CODE CB(N,1)-4@) 


GO TO 2190 

LEY xX=Ltl 

LET Y=0 

LET Y=Y+i! 

IF ®XB(K4+Y)=" " THEN LET Q@QS= 
TO X+¥/): GO TO 3969 

GO TO 276 

LET N=9 

LET N=N+i1 

IF Q%( TO LEN Q%S)=CSH#(N,2 TO 
THEN GO TO 719 


REM TRIGGER WORD FOUND 


330 
349 


IF N<CK THEN GO TO 319 
GO TQ 2148 
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USING THE MYFLAG 





If it fails in this search, the computer must fall back on the 
myflag (if it exists) or a random phrase (if myflag is an 
unassigned string): 


88a REM ¥¥ RANDOM REPLIES ¥% 
¥¥¥X NO TRIGGER *¥** 

828 LET T=INT (RND¥8) +1 

859 IF T=1 THEN PRINT “WHAT DOE 
S THAT SUGGEST TO YOU?": GO TO 3 
g 

878 IF T=2 THEN PRINT “I’M NOT 
SURE I UNDERSTAND FULLY?": GO TO 

3G 

896 IF T=3 THEN PRINT “PLEASE E 
LABORATE ON THAT?": GO TO 39 

9198 IF T=4 THEN PRINT "THAT’S V 
ERY INTERESTING?": GO TO 32 

939 1F T=5 THEN PRINT "WELL... 


PLEASE CONTINUE ......”%:3: GO TO 3 
2) 

930 IF T=6 THEN PRINT “WHY?": G 
O 10 39 


9/7O IF T=7 THEN PRINT "AND THEN 
7's GQ TO 36 

99GB IF T=8 THEN PRINT "I SEE .. 
PLEASE TELL ME MORE ON THAT.”: 
GO TQ 39 

19190 REM *** USE "MYFLAG" 
1626 LET THINT (RND¥S) +1 
1G3G IF T=1 THEN PRINT "TELL ME 
MORE ABOUT YOUR ";KS 

194@ IF T=2 THEN PRINT "EARLIER 
YOU MENTIONED YOUR "5K%3" TELL M 
E A BIT MORE ABOUT THAT." 





KEE 
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A LINK THERE WITH YOUR";K#; "2" 


19708 IF T=S THEN PRINT “WHY DON’ 
T WE GO BACK AND DISCUSS 


YOUR "5K%5" A LITTLE MORE?" 

196389 IF T=6 THEN PRINT "DOES ANY 
CONNECTION BETWEEN THAT AND 
FOUR "5$KB5° SUGGEST ITSELF?” 

1698 IF T=" THEN PRINT "WOULD YQ 

U PREFER TO TALK ABOUT YOUR "3K 

$ 


11966 IF T=8 THEN PRINT "I THINK 
PERHAPS WORRIES ABOLIT YOUR "3K 


$3" ARE BOTHERING YOU...” 
111@ IF RND>.7 THEN LET K#="" 
112@ GO TO 32 


Line 810 checks to see what the string variable, K$, has 
been assigned to. If it finds that KS is not empty, the action 
goes to the section from 1020 to 1110 and one of eight 


replies which can use the myflag is printed up (such as 
TELL ME MORE ABOUT YOUR... or WHY DON’T WE GO 
BACK AND DISCUSS YOUR... A LITTLE MORE?) 


At the end of this section (line 1110), K$ is reset to the 
empty string around 30% of the time, thus allowing it to be 
reset if another MY is found in later input. 


If KS is unassigned, the DOCTOR chooses from the eight 
random replies (in lines 850 through to 1000). These are 
designed to keep the conversation flowing. 
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Now that you know how it works, it is time to hang up your 
Computer’s shingle, and go into practice. 


1@ REM DOCTOR 

{5S BRIGHT 1: FLASH @: PAPER 1: 

INK 7: BRIGHT @G: BORDER 1: INVE 
RSE @: CLS 

28 GO SUB 1140: REM INITIALISE 

340 PRINT © PRINT INK 65 BRIGHT 


49 POKE 23658,20@0: PRINT ">";: 
INPUT X$: PRINT xX’ 


9G IF x$="" THEN STOP ©: REM QU 
IT BY PRESSING ENTER 
69 FPRINT 


76 IF X$=Z% THEN PRINT "PLEASE 
DON’T REPEAT YOURSELF": GO To 3 
SG LET 2%=xX$: LET X$=X$+" 
9G IF X$( TO 7)="GOODBYE" THEN 
PRINT "OK. SEE YOU AGAIN SOMETI 
ME.": STOP 
1998 REM ** LOOK FOR TRIGGER PHR 
ASES AT START OF INPUT ¥* 
119 LET L=@ 
124 LET L=L+1 
13@ LET LN=CODE C#(L,1)-4@¢ 
14@ IF X#( TO LN-1)=C#(L,2 TOL 
N) THEN GO TO 368: REM TRIGGER F 
OUND 
15@ IF L<K THEN GO TO 12¢ 
164 REM ¥* PROGRAM GETS HERE IF 
ON TRIGGER PHRASE FOUND ¥** 


1/9 


REM ¥%¥ NOW LOOK FOR TRIGGER 


WORDS WITHIN INPUT ¥ 


120 
19E¢ 
Fo 5 2) 
21g 
£2¢ 


M NO 


239 
240 
208 
Log 
27°G 
28a 


ABCK 


L9G 
388 
3190 
329 


CODE C#(N,1)-49) 


LET 
LET 
LET 


AS=" "4064" " 

M=LEN X$ 

L=f 

LET L=L+1] 

IF L=M-1 THEN GO TU SOG: RE 
TRIGGER FOUND 
IF xX$(L)=" " 
GO TO 2146 

LET X=L+i1 

LET Y=6 

LET Y=Y¥+1 

IF XB®(X+Y)=" " 
TO w+): 
GO TO 279 
LET N=9 
LET N=N+1 
IF Q$( TO LEN Q%)=CH(N,2 TO 
THEN GO TO 712 


THEN GO TO 256 


THEN LET 
GU TO 36968 


US= 


REM TRIGGER WORD FOUND 


23h 
348 
328 
268 


IF N<K THEN GO TO 319 

GQ TO 210 

REM KKEKKKKEKKKKHKKKKEKERE 

REM **¥* TRIGGER PHRASE FOUND 


AT START OF INPUT ** 


378 


33898 IF T=1 THEN LET 


296 
49S 
419 


WITH ASTERISK,IF $O 


(RND¥ES) +1 
GS=DS(L) 
GS=ES(L) 
GS=FS(L) 
SEE IF ENDS 
NEEDS PART 


LET T=INT 


IF T=2 THEN LET 
IF TFT=3 THEN LET 
REM ** CHECK TO 


QF INPUT ADDED €* 


426) 
92s 


$(R)=" " 


LET FLAG=9 
FOR R=65 TOC 1 STEP 
THEN NEXT R 


-1l: IF G 
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439 IF GS(R)="#" THEN LET FLAG= 
{: LET G®=G$( TQ R-1) 

498 PRINT GS;s°" "; 

450 IF FLAG=@ THEN GO TO 3@: RE 

, NQ FURTHER MATERIAL NEEDED 

460 REM ** NOW USE BALANCE OF I 
NFUT 

455 FOR R=LEN xX% TO 1 STEF -1: 


IF «$(R)=" “ THEN NEXT R 

466 LET x$=XS( TU R) 

47O LET *S=" "+AS(LNtL1 TO LEN X 
6sS)4 tt 


FOB REM HHKKK HHH HK IRIE 

49@ REM ¥*% CONJUGATION CHANGES 
¥¥ 

59@ REM * ALSQ LOQK FOR "MY"TO 
TRIGGER "MYFLAG" (KS) % 

51a LET LN=LEN Xx% 

S26 LET M=9 

S3@ LET M=M+1 

S4@ IF M=LN THEN GO TO 32 

SS@ IF X$(M)=" " THEN GO TO 57@ 

S68 GO TO 532 

578 LET X=M+1 

S8@ LET Y=2 

S9@ LET Y=Y+1 

595 IF LEN X#<X+Y THEN LET x#=x 
$+" 

668 IF X#$(X+Y)=" " THEN LET Q#= 
X$(X TO X+¥-1): GO TO 63¢ 

616 IF X+¥>25@ THEN GO TO 53¢ 

628 GO TO 599 

638 LET MN=9 

648 LET MN=MN+1 

658 IF @$="MY" AND K$=""THEN L 
ET KS=X$(X+3 TO LEN X$-4) 
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668 IF QS=AS(MN,2 TO CODE AS(MN 
»1)-4@) THEN PRINT BS(MN,2 TO CO 
DE BS(MN,1)-4@)3" "3: GO To 53¢ 
678 IF MN<KK THEN GO TO 649 
638 PRINT ass" "3 
69S GO Ta 53g 
POD REM XXKKHK KKH KIKI HHH HEHE 
718 REM ¥ TRIGGER WORD FOUND x 
728 LET T=INT (RND¥3) +1 
73@ LET ag="" 


749 IF T=1 THEN LET Q$=D4(N) 
7IG>IF T=2 THEN LET QS=ES$(N) 


7606 IF T=3 THEN LET QS=FS3(N) 

?/7/O8 IF AQS(LEN QS)="¥%" THEN PRIN 
T QS: GO TO 3¢ 

786 REM **¥ FALLS THROUGH TO 
NEXT SECTION IF TRIGGER WORD 

JUDGED UNSUITABLE ** 

PPB REM KEKKEKKKKKKEKKKEKKKKE 

SOG REM *¥*¥ RANDOM REPLIES ¥¥ 
KEEFE NO TRIGGER KEE 

S260 LET T=INT (RND#¥8) +1 

S350 IF T=1 THEN PRINT “WHAT DOE 
S THAT SUGGEST TO YOU?": GO TO 3 
2) 

879 IF T=2 THEN PRINT "I’M NOT 
SURE I UNDERSTAND FULLY?": GO TO 

58 

6990 IF T=3 THEN PRINT “PLEASE E 
LABORATE ON THAT?*: GO TO 32 

91G IF T=4 THEN PRINT “THAT’S V 
ERY INTERESTING?": GO TO 39 

930 IF T=5 THEN PRINT "WELL... 
PLEASE CONTINUE ......"°5: GO TO 3 
4) 
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950 IF T=6 THEN PRINT "WHY?": G 

O TO 36 
9760 IF T=? THEN PRINT “AND THEN 

?": GO TO 32 
999 IF T=8 THEN PRINT "I SEE . 
PLEASE TELL ME MORE ON THAT.": 

GO TO 34 

1919 REM **% USE "MYFLAG" 

1928 LET T=INT (RND¥8) +1 

193@ IF T=1 THEN PRINT "TELL ME 

MORE ABOUT YOUR "3K 

194% IF T=2 THEN PRINT "EARLIER 

YOU MENTIONED YOUR "3K$3" TELL M 

E A BIT MORE ABOUT THAT." 

195@ IF T=3 THEN PRINT "DOES THA 

T HAVE ANYTHING TO DG WITH YOUR 
"skp3 "3" 

1969 IF T=4 THEN PRINT "IS THERE 
A LINK THERE WITH YOUR"3;K#3"?" 
1978 IF T=5 THEN PRINT "WHY DON’ 
T WE GG BACK AND DISCUSS 

YOUR "3K%$;" A LITTLE MORE?" 

19898 IF T=6 THEN PRINT "DOES ANY 
CONNECTION BETWEEN THAT AND 
YOUR "3;K#3" SUGGEST ITSELF?" 

ig@9@ IF T=? THEN PRINT "WOULD YO 

U PREFER TO TALK ABOUT YOUR "3K 

= = 

11@@ IF T=8 THEN PRINT "I THINK 

PERHAPS WORRIES ABOUT YOUR "3K 

$;" ARE BOTHERING YOU...” 

1119 IF RND>.? THEN LET KS="" 

1129 GO TO 3¢a 

LL SGD REM HKEHKHHHH HHH HHH HHH HHH 

1149 REM ®¥*® INITIALIZATION X¥* 

1159 RANDOMIZE 





XX 
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1168 CLS 

1188 DIM AS$(14,28): DIM BS(14,20 
): REM CONJUGATIONS 

1199 DIM C#(46,15)!: DIM D%(46,65 
): DIM E%(46,65): DIM F#(46,65): 
REM TRIGGER WORDS AND REPLIES 


1260 LET 2$=""": REM TO STOP 
REPETITIONS 
l2ig LET KB="": REM "MYFLAG" 


1220 PRINT : PRINT 

{23G PRINT FLASH 13; PAPER 13 INK 
S;"THE DOCTOR IS IN PLEASE STAN 

D BY" 

1244 LET KK=9 

1250 LET KK=KK+1 

1268 READ AS(KK) , BS(KK) 

1241 FOR R=14 To 1 STEF -1: IF A 


${KK,R)=" " THEN NEXT R 

1262 LET AS(KK)=CHR® (R+41) +AS(K 
K, TO 19) 

1263 FOR R=14 To 1 STEP -1: IF & 
S(KK,R)=" " THEN NEXT R 

1264 LET BS(KK)=CHRS (R+41)+BS(K 
K, TO 19) 


L27@ IF B@(kKK,2)="%" THEN GQ TO 
1298 

1226 GO Ta 125@ 

1298 LET K=2 

13@@ LET K=K+i 

131G READ C#%(K),D#(K) ,ES(K) ,FS(K 
) 

1311 FOR R=1@ TO 1 STEP -1: IF C 

$(K,R)=" " THEN NEXT R 

{313 LET CS(K)=CHRS (Rt41)+CH(K, 
TO 14) 


203 


1326 IF FS(K,1)="%" THEN GO TO 1 


348 

1336 GO TO 1399 

1346 CLS 

1356 PRINT "WELCOME TO ANQTHER 5S 
FSSION" 


136@ PRINT "WITH THE DOCTOR..." 

1388 PRINT ’ "HELLO..." 

13990 RETURN 

14GA REM KXXKKKHKH 

141@ REM * DATA ¥ 

1426 REM ¥¥ CONJUGATIONS ¥% 

1438 DATA "AM", "ARE", "WAS", "WERE 
rer" you", "MY", "YOUR" 

1449 DATA "YOU’VE","I’VE", "YOUR" 

. "MY", "ARE", "AM" 

1459 DATA "YOU'RE", "I AM", "YOURS 
", "MINE", "YOU", "ME", "ME", "You", " 

KU nH" 

1466 REM * TRIGGER WORDS/REPLY P 

HRASES 

147@ DATA "I NEED" 

148 DATA "WHY DO YOU NEEDS" 
1498 DATA "WOULD IT REALLY BE HE 

LPFUL IF YOU GOT" 

1596 DATA "ARE YOU SURE YOU NEED 

yu 

1519 DATA "WHY DON’T you" 

152@ DATA "DO YOU REALLY THINK I 
DON’? T¥" 

1539 DATA "PERHAPS EVENTUALLY I 

WILL ¥" 

1549 DATA "DO YOU REALLY WANT ME 
TOX" 

1559 DATA "WHY CAN’T I” 
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1369 DATA 


LD BE ABLE TUX" 


1357S 
135ca0 
RIED 
13599 
16098 
D IN 
1618 DATA 
F I WERE 
1624 DATA 


DATA 
DATA 
HARD 
DATA 
DATA 


"DO YOU THINK YOU SHOU 
"WHY CAN’T YOU" 
"PERHAPS YOU HAVEN’T T 
ENOUGH?" 

"ARE YOU" 

"WHY ARE YOU INTERESTE 


WHETHER I AM OR NOT#¥" 
"WOULD YOU PREFER IT I 
NQT *" 

"PERHAPS YOU SOMETIMES 


DREAM IT AMX" 


s65998 DATA 
1640 DATA 
AN? T#" 

1630 DATA 
16609 DATA 
16/0 DATA 


16s8¢ 


CAUSE 


1696 
N%" 
17 3B 


DATA 
YOU 
DATA 


DATA 


OQOLUTELY 


1719 
1/722 
1730 
1/7490 
1/738 
1/68 

YOU 
1772 
17ag¢g 
“OUR 
1798 
16d 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"I CAN’ T" 
"HOW DO YOU KNOW YOu C 


"HAVE YOU TRIED?” 
"PERHAPS, NOW, YOU CAN" 
"T Am" 

"DID YOU COME TO ME BE 
AREX" 
"HOW LONG HAVE YOU BEE 
"DO YOU THINK IT’S ABS 
NORMAL TO BEX" 

"TM" 

"DO YOU ENJOY BEING" 
"WHY TELL ME YOU’REX" 
"WHY ARE YOU" 

"Tl WANT” 

"WHAT WOULD IT MEAN TO 


IF YOUGOT*#" 


DATA 
DATA 
LIFE 
DATA 
DATA 


"WHY DO YOU WANT” 
"WHAT WOULD IT ADD 
IF YOU GOT" 
"WHAT" 

"WHY DO YOU ASK?" 


TO 
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1318 DATA "HOW WOULD AN ANSWER T 
O THAT HELP YOU?" 

1620 DATA "WHAT DQ YOU THINK?" 
{33g DATA "HOW" 

1896 DATA "HOW WOULD YOU SOLVE T 
HAT?" 

i8f5s¢@ DATA "IT WOULD BE BEST [TQ A 


NSWER THAT FOR YOURSELF” 





1Ss6G@ DATA "WHAT I35 IT YOU’RE REA 
LLY ASKING?" 

18/74 DATA "WHQ" 

13838q DATA "DO YOU OFTEN THINK AB 
OUT SUCH QUESTIONS?" 

139S@ DATA "WHAT ANSWER WOULD PUT 
YOUR MIND AT REST?" 

ida DATA "WHO DO YOU THINK" 
19°1@ DATA "WHERE" 

1928 DATA "THAT’S A PRETTY SILLY 
QUESTION" 

1930 DATA “DO YQU REALLY NEED TOC 

KNOW WHERE" 

199G DATA "WHAT WOULD IT MEAN TO 
YQU IF I TOLD TOU WHERE” 

1958 DATA "WHEN" 

196G DATA "HOW SHOULD I KNOW WHE 

N¥" 

1??@ DATA "THE TIME SHOULD NOT B 

= DISCUSSED HERE” 

19ee DATA "THINGS HAPPENING AT IM 

ORE.OR LESSTHE RIGHT TIME” 

1998 DATA "WHY" 

2E68 DATA "WHY DON’T YOU TELL ME 
THE REASON WHY" 

“G18 DATA "WHAT HAVE YOU SAID TO 
ALLOW ME TO TELL YOU WHY*" 
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LU 20 


DATA 


"DO YOU REALLY NEED TO 


KNOW WHY" 


2B36 
LAIAG 
ON? " 
2838 


DATA 
DATA 


DATA 


"BECAUSE" 
"IS THAT THE REAL REAS 


"WHAT QTHER REASONS CO 


ME TO MIND?" 


2E6G DATA "WHAT ELSE DQES THAT E 

~PLAIN?" 

2O87EG DATA "SORRY" 

2LE38G DATA "IN WHAT OTHER CIRCUMS 

TANCES DQ YQU APQLQGISE?" 

2APG DATA "THERE ARE MANY TIMES 

WHEN NO APOLOGY IS NEEDED" 

ZiGsG DATA "WHAT FEELINGS DO YQU 

HAVE WHEN YQU APOLOGIZE?" 

2£1iig DATA "HELLO" 

2120 DATA "HELLO ...IT’S GOOD TO 
SEE YUU" 

21360 DATA "HELLO JO YOU...1’M GL 
AD YOU COULD DROP BY TODAY" 

2194 DATA "HI...1’°’M LOQKING FORW 

ARD TO ANOTHER CHAT WITH YOU." 

2158 DATA "HI" 

2166 DATA "HI THERE...1’°’M GLAD T 

O SEE YOU HERE TODAY" 

2178 DATA "HI. I’M GLAD YOU'VE D 

ROPPED BY." 

2186 DATA "HI TO YOU...RELAX NOW 


,AND LET’S TALK ABOUT YOUR SITUA 
TION" 


2198 DATA "MAYBE" 

2288 DATA "YOU SEEM A LITTLE HES 
ITANT" 

7218 DATA "THAT’S PRETTY INDECIS 


IVE" 
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c22H DATA 
ONS DO 


"IN WHAT OTHER SITUATI 


YOU SHOW SUCH A TENTATIVE 


APPROACH?" 


c2oe8 DATA 
zz24G DATA 
NEGATIVE 

22aOe DATA 
LIST To BE 
2260 DATA 


L.WHAT DOESTIT SUGGEST TO 


227K DATA 
22368 DATA 
IFIC 

229G DATA 


LE STRONG?" 


2388 
2310 
23208) 
233G8 
O?" 

2348 
2359 
2368 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 


"NO" 

"WHY ARE YQU BEING 30 

ABOUT IT?” 

"ARE YOU SAYING THAT J 

NEGATIVE" 

"THAT’S PRETTY FORCEFU 
YOU?" 

"ALWAYS" 

"PLEASE GIVE ME A SPEC 

EXAMPLE " 

"ISN’T "“ALWAYS’ A LITT 

"WHEN? ”® 

"I THINK" 

"DO YOU DOUBTS" 


"DQ YQU REALLY THINK S&S 


"BUT YOU ARE NOT SURE* 
"FRIEND" 
"WHr DO YOU BRING UP T 


HE SUBJECT QF FRIENDS?" 


237K DATA 
GRY OF 
23388 DATA 
BOUT YOUR 
2390 DATA 
c400 DATA 
RIENDS’ 
24910 DATA 
O TALK 
We" 


"WHAT IS YOUR BEST MEM 
A FRIEND?" 
"PLEASE TELL ME 
FRIENDSHIP..." 
"FRIENDS" 

"IN WHAT WAY DO YOUR F 
REACTIONS BOTHER YOU? 


MORE A 


"WHAT MADE YOU START T 
ABOUT FRIENDS JUST NO 
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Z4I20 DATA 


"IN WHAT WAY DO YOUR F 


RIENDS IMPOSE ON YOU?" 

2430 DATA "YES" 

244@ DATA "WHAT LIES BEHIND YOUR 
CERTAINTY?" 

2458 DATA "YOU'RE PRETTY POSITIV 

od | 

2466 DATA "YOU SEEM VERY CERTAIN 
ABOUT IT" 

2476 DATA “COMPUTER” 

248@ DATA "WHAT FEELINGS DO YOU 

GET TALKING TC ME LIKE TH 
Is?" 

2498 DATA "ARE YOU THINKING ABOU 

T ME IN PARTICULAR?" 

2588 DATA "WHAT ASPECT OF COMPUT 

ERS INTERESTS YOU THE Mas 

tT?" 

2518 DATA "IS IT" 

2528 DATA "DO YOU THINK IT IS%" 

2538 DATA "IN WHAT CIRCUMSTANCES 
WOULD ITX" 

2548 DATA "IT COULD WELL BE THAT 

y 

2556 DATA "IT IS" 

2568 DATA "WHAT DEGREE OF CERTAI 

NTY WOULD YOU PLACE ON IT BEING* 

2578 DATA "ARE YOU CERTAIN THAT 
IT’ Sx" 

2584 DATA "HOW WOULD YOU FEEL IF 
I TOLD YOUTHAT IT PROBABLY ISN’ 

Tx" 

2599 DATA "CAN YOU" 

2688 DATA "WHAT MAKES YOU THINK 


I CAN’ T¥" 
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ZE1G DATA 
I CAN” 
26290 DATA 
E TO BE 
2630 DATA 
2699 DATA 
T TOQ#" 
Z63G DATA 
E TO" 
2669 DATA 
ZO7G DATA 
26808 DATA 
yn 

269G DATA 


"DON’T YOU THINK THAT 


"PERHAPS YOU WQULD LIK 
ABLE TO*”" 


"CAN I T 


"PERHAPS YOU DON’T WAN 
"DO YOU WANT TO BE ABL 
"I DOUBT IT” 

"OU ARE” 

"WHY DQ YOU THINK I AM 


"DOES IT PLEASE YQU TO 


BELIEVE I AM*#" 


2789 DATA 
E TO BE" 
2/7168 DATA 
2/7208 DATA 
AM" 
27306 DATA 


"PERHAPS YQU WOULD LIK 


a8 YOU 3 RE e8 
"WHY DON’T YOU THINK I 


"DOES IT PLEASE YOU TO 


BELIEVE I AM" 


2/748 
2738 
2/768 


DATA 
DATA 
DATA 
27708 DATA 
2738 DATA 
E TO" 

2/798 DATA 
23900 DATA 





"WHY DO YOU SAY I AM*" 
"I DON’T" 

"DON’T YOU REALLY” 
"WHY DON’T YOU" 

"DO YOU WANT TO BE ABL 


"I FEEL" 
"TELL ME MORE ABOUT SU 


CH FEELINGS” 


23810 DATA 
£3298 DATA 


“339 DATA 


"BO YOU OFTEN FEEL¥” 
"DO YOU ENJOY FEELING® 


"FEEL" 
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2B40>DATA 






























"LET’S EXPLORE THAT ST 


ATEMENT A BIT?" 

2859 DATA "DO YOU OFTEN FEEL LIK 

E THAT?” 

2868 DATA "WHAT EMOTIONS DO SUCH 
FEELINGS STIR UP IN YoU" 

2878 DATA “I HAVE" 

2889 DATA "WHY TELL ME THAT You 

HAVE" 

2899 DATA "IT’S GBVIGUS TO ME TH 

AT YOU HAVE" 

29986 DATA “HOW CAN I HELP YOU WI 
THR? 

2918 DATA "I WOULD" 

2928 DATA "COULD YOU EXPLAIN WHY 
YOU WOULD*" 

2938 DATA "WHO ELSE HAVE YOU TOL 

D YOU WOULD" 

2948 DATA "HOW SURE ARE YOU THAT 
YOU WOULD*" 

2958 DATA “1S THERE" 

2968 DATA "OF COURSE THERE IS" 

2978 DATA “IT’S LIKELY THERE IS* 

2988 DATA "WOULD YOU LIKE THERE 
TO BEX" 

2998 DATA "MY" 

3983S DATA "YOUR" 

3G1G DATA "I SEE , YOUR*" 

3828 DATA "WHAT DOES IT MEAN TO 

YOU THAT YOUR" 

3938 DATA "YoU" 

3949 DATA "THIS SESSION IS TO HE 


LP YOU;NOT TO DISCUSS 





39590 DATA 
SAY THAT 


Me!" 
"WHAT PROMPTED YOU TO 
ABOUT ME?” 


59660 DATA 


3978 DATA 
39898 DATA 
3699 DATA 
ED" 
3OGIYS 
ATE" 
31900 DATA 








DATA 





"I’M TAKING NOTES ON A 
LL THIS TO SOLVE YOUR SITUATION” 


"I HATE" 
"WHY DO YOU HATEX" 





"HOW LONG HAVE YOU HAT 


"DO ALL YOUR FRIENDS 





yn : “ye , oyen ; a as 


H 





process natural language — that computers could be of 
great value in helping us translate from one human 
language to another. Such a hope has been with us since 


the early fifties, and a great deal of progress has been 
made in the field. 


There are now more than 20 machine translation (MT) 
systems in use around the world. But, contrary to popular 
opinion, these systems do not work on a SHOVE IN THE 
DOCUMENT IN ENGLISH IN ONE SLOT and GET THE 
FRENCH VERSION OUT OF ANOTHER basis. MT is more 
Subtle, and more involved. In fact, there are several 
subfields within the overall domain of MT. 


STILL A USE FOR PEOPLE 





Although, in the early days of building MT systems, it was 
accepted (probably without too much thought) that human 
translators would eventually prove redundant as machines 
became more skilled, researchers have now confirmed that 
at present (and for the immediate future) the role of human 
translators is vital. Specialists in the field now talk about 
‘machine pre-translation’,, with the documents produced by 
MT systems being seen as simply rough working drafts of 
the final, translated works. 
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There are several different approaches to MT which are in 
use at present. These include systems which have been 
built with the idea of translating documents written in a kind 
of ‘stripped-down’, limited version of natural language, or 
documents which have been edited to make them easier for 
the machine to handle before they are fed to it. Xerox have 
a system of this type, called SYSTRAN. We'll be looking at 
Some output produced by SYSTRAN (working on 
documents for the EEC) in due course. 


Another approach is one where the user can modify the 
System to his or her own needs, giving it a vocabulary to 
Suit the speciality in which the MT will take place. Such a 
system, called CULT, is currently in use in Hong Kong 
where it translates Chinese mathematical journals. The 
direct printout of the machine is bound and sold to libraries 
around the world. 


When you and |, as laymen, have thought about MT, it is 
likely that we have envisaged machines which will perform 
ina STICK ENGLISH IN THE INPUT, GET FRENCH FROM 
THE OUTPUT mode, and this is the eventual goal of those 
developing MIT. It is far from being realised at present. 
However, the SYSTRAM system — mentioned two para- 
graphs ago as working with documents written in ‘sub- 
English, or ones which had been pre-edited — can be used 
ina freelance’ mode, in which it will tackle any document 
which is fed into it. The success achieved has varied from 
document to document. 





Many documents go through a pre-editing stage before 
being offered to a machine for translation. In this stage, an 
attempt is made to weed out potential ambiguities, and 
other aspects of the text which could trio up a machine. 
Many documents (most, in fact) need to have be post- 
edited. In this stage, a check is made for genuine errors by 
the machine, and syntax is cleaned up. 
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Some documents do not need to be post-edited. For 
certain purposes, the rough output direct from the MT 
system may be enough. 


MT may also be carried out with the assistance of a human 
translator, intervening in the work while the translation is 
underway. 


As you Can see from the above, the role of the human is still 
vital in the translation process. And there is no indication 
that this will change in the near future. Machines can do the 
rough and ready pedestrian work of translation, but human 
polishing and correction is still needed. 


Let’s look at a genuine example of machine translation. 
This comes from an EEC document, translated from French 
to English by the SYSTRAN system in 1981. 


Here is the start of the document in French: 


Application de la micrologique au controle des 
operations de production. 


But de la recherce: 


Perfectionner les appareillages existants de 
sorte que les preposes soient debarasses des 


taches dans lesquelles leur jugement n intervient 
pas. 


Application au central de telesurveillance 
d’engins sur pneus. 





The machine responded with this translation: 
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Application of micrological to the control of the 
production operations. 


Aim of the research: 


TO improve existing equipments so that the 
officials debarasses tasks in which their judge- 
ment does not intervene. 


Application to the exchange of telesurveillance of 
equipment on tyres. 


Although this is pretty rough, a fair amount of the meaning 
comes through. The ‘debarasses’ which survives in the 
English translation is, in fact, due to a spelling error in the 
French original (it should have been ‘debarrasses’ which, 
presumably, the machine would have understood). 


After the human post-editing, the document read as follows: 


Application of micrology to the monitoring of 
production operations. 


Aim of the research: 


To perfect existing apparatus so that staff can be 
relieved of tasks where no judgement is required. 


Application to the remote monitoring station for 
trackless vehicles. 


| find it fascinating to follow through the way the document 
has evolved. Apart from the final line, the final version of the 


English text is not wildly different from SYSTRAN original 
Output. 
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former self. 
Here's what the machine printed out: 


It publishes station and day reports indicating the 
duration and the importance relative of the 
periods devoted by each instrument supervised 
to the various possible activities: evacuation of 
the products, transport of equipment, mainten- 
ance, station service ...as well as the number of 
evacuated coal cups. 


This is the kind of text which is a dead giveaway of MT, with 
such phrases as ‘the importance relative of the periods’ 
showing clearly their birth in French. 


After post-editing, the text was reduced to the following: 


It publishes shift and day reports indicating the 
duration and the relative portion of time spent by 
each vehicle recorded on the various possible 
tasks: coal clearance, materials transport, main- 
tenance, refuelling points ...as well as the 
number of coal buckets carried. 


Finally, before we get on to creating our own ‘translation’ 
program, it is interesting to note that the vast majority of 
documents using MT at present are non-literary. The trans- 
lation of literary works is another field entirely, and in so far 


as MT is concerned, is barely in its infancy. 
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FRANGLAIS 





This program, using a vocabulary devised by Jeremy 
Ruston and based on an idea from him, accepts English 
input, and gives out a strange polyglot mixture of French 
and English, where the easiest and most obvious words are 
translated into French, and the difficult ones are left in 
English (this technique could produce, for example, JE 
SUIS UN TRES EXASPERATED HOMME for | AM A VERY 
EXASPERATED MAN). The magazine Punch has a regular 
feature called “Let's Talk Franglais’§ which shows how 
delightful such a curious mixture of languages can be. 


The program given here is not designed to be a serious 
one. It does, however, indicate some of the problems 
inherent in MT. More seriously, with a greatly extended 
vocabulary, it could be used to produce a very rough 
document in a kind of French from English text (or from 
French to English, simply by swapping two variables) which 
could then be extensively post-edited. If the program was 
used in a field with a specialist vocabulary, it could do 
quite a serviceable job, although it would not be able to 
make any judgements to ensure that the various parts ofa 


sentence (such as gender demands in French) were 
correct. 


You may think the claim that this program could be used 
seriously, with an extended vocabulary, is unrealistic when 
you read some of the output of the program. However, if you 
think about it, you'll see that its potential is by no means 
even approached in the current form. 
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Here's some of the output of TRANSLATE: 


? Helle my good friends 
——>BONJOUR MON BON AMIS 


? I am very pleased to see you here 
— JE SUIS TRES PLEASED A VU VOUS ICI 


? Could I have some steak for my evening 
meal 


—7COULD JE AI DES ENTRECOTE POUR MON 
EVENING MEAL 


? Everybody thinks the trendy policeman 
1S a Super detective 


—>TOUT LE MONDE THINKS LE AVANT-GARDE 
GENDARME EST UNE FANTASTIQUE CLUESO 


? If you turn left at Plains in Georgia 


you will end up in Paris 
—?>IF VOUS TURN GAUCHE AT PARIS DANS 


GEORGIA VOUS WILL END UP DANS PLAINS 


As you can see, I've deliberately fed in English that triggers 
the program’s extremely limited vocabulary: 


? I want some cigarettes to put behind 


the door in my house 
— >JE WANT DES GAULOISES A PUT DERRIERE 


LE PORTE DANS MON MAISON 
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? Pass the medicine for my mother which 


She must have when she 1S cold 
—>PASS LE VIN POUR MON MERE WHICH SHE 


MUST AI QUAND SHE EST FROID 


? When you play music I want to sing a 
sonc and weve my arm in the sun 


——>GUAND VOUS PLAY MUSIQUE JE WANT A 
SING UNE CHANSON ET WAVE MON BRA DANS LE 
SOLIEL 


? Fish and chigs are for those who stand 
in the eye of the public 


—YPOISSON ET CHIPS EST POUR THOSE WHO 
STAND DANS LE ORIEL CE LE PUBLIC 


? I am feeling right inside my head when 
1 make music behind the little cat 
—?7JE SUIS FEELING DROITE INSIDE MON 


TETE QUAND JE MAKE MUSIQUE DERRAIERE LE 
PETITE CHAT 





The program is simple to follow. It starts with (aS uSual) a 


call to a subroutine at the end of the program which 
initialises the variables. 
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19 REM ¥¥% TRANSLATE **+* 
15 POKE 23658, 28¢ 
26 GO SUB 9996: REM INITIALISE 





99GB REM ¥% INITIALISE ¥¥ 

9995 CLS 

9918 DIM ES$(19G,15): 
ENGLISH WORDS 

9228 DIM FS(19G, 2G) 





REM 





9198 LET COUNT=¢ 

9185 LET COUNT=COUNT+1 

9119 READ E#(COUNT) ,FS(COUNT) 

9128 IF FS#(COUNT,1)<>"%" THEN GO 
TO 9195 

9498 RETURN 

9599 REM **¥ DATA **¥ 

9519>DATA "THE", "LE", "ME", "MOI", 
"I", "JE", "HERE", "ICI", "AM", "SUIS 
" "ARE", "EST", "NOT", "NE", "IN", "D 

ANS" 

9515 DATA "WHEN", "QUAND", "YOU", " 

vous", "IS", "EST", "IT", "IL", "DAY" 
,"JOUR", "AND", "ET", "SOME", "DES", 
"OF", "DE" 

9528 DATA "HAVE", "AI", "A", "UNE", 
"MY". "MON", "YOUR", "VOTRE", "OF", " 

DE", "TO", "A", "SEE", "VU", "VERY", " 
TRES" 

9538 DATA "ROOM", "CHAMBRE", "STEA 

K". "ENTRECOTE", "FRIES", "POMME FR 
IES", "BIG", "GRAND", "FOR", "POUR" 

9549 DATA "MATCH", "ALLUMETTE", "S 

UPER", "FANTASTIQUE", "DEAD", "MORT 
" "WITH", "AVEC" 





221 


? Pass the medicine for my mother which 


She must have when she 1S cold 
—>PASS LE VIN POUR MON MERE WHICH SHE 


MUST AI QUAND SHE EST FROID 


? When you play music I want to sing a 
sonc and weve my arm in the sun 


——>GUAND VOUS PLAY MUSIQUE JE WANT A 
SING UNE CHANSON ET WAVE MON BRA DANS LE 
SOLIEL 


? Fish and chigs are for those who stand 
in the eye of the public 


—YPOISSON ET CHIPS EST POUR THOSE WHO 
STAND DANS LE ORIEL CE LE PUBLIC 


? I am feeling right inside my head when 
1 make music behind the little cat 
—?7JE SUIS FEELING DROITE INSIDE MON 


TETE QUAND JE MAKE MUSIQUE DERRAIERE LE 
PETITE CHAT 





The program is simple to follow. It starts with (aS uSual) a 


call to a subroutine at the end of the program which 
initialises the variables. 
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19 REM ¥¥% TRANSLATE **+* 
15 POKE 23658, 28¢ 
26 GO SUB 9996: REM INITIALISE 





99GB REM ¥% INITIALISE ¥¥ 

9995 CLS 

9918 DIM ES$(19G,15): 
ENGLISH WORDS 

9228 DIM FS(19G, 2G) 





REM 





9198 LET COUNT=¢ 

9185 LET COUNT=COUNT+1 

9119 READ E#(COUNT) ,FS(COUNT) 

9128 IF FS#(COUNT,1)<>"%" THEN GO 
TO 9195 

9498 RETURN 

9599 REM **¥ DATA **¥ 

9519>DATA "THE", "LE", "ME", "MOI", 
"I", "JE", "HERE", "ICI", "AM", "SUIS 
" "ARE", "EST", "NOT", "NE", "IN", "D 

ANS" 

9515 DATA "WHEN", "QUAND", "YOU", " 

vous", "IS", "EST", "IT", "IL", "DAY" 
,"JOUR", "AND", "ET", "SOME", "DES", 
"OF", "DE" 

9528 DATA "HAVE", "AI", "A", "UNE", 
"MY". "MON", "YOUR", "VOTRE", "OF", " 

DE", "TO", "A", "SEE", "VU", "VERY", " 
TRES" 

9538 DATA "ROOM", "CHAMBRE", "STEA 

K". "ENTRECOTE", "FRIES", "POMME FR 
IES", "BIG", "GRAND", "FOR", "POUR" 

9549 DATA "MATCH", "ALLUMETTE", "S 

UPER", "FANTASTIQUE", "DEAD", "MORT 
" "WITH", "AVEC" 
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Here you can see the ‘translating engine’ mechanism. The 
work actually begins when your Spectrum prints a little 
arrow at the start of the line, to indicate the start of the 
translated lines. 


139D 
1992 


REM *#% TRANSLATE X* 
PRINT TAB 23 "-->";5 


1985 LET L=LEN AS: LET K=2 

19160 LET K=K+t1 

115 IF K=L THEN PRINT =: PRINT : 
RETURN 

1926 LET BS=" "“+AS+" “: IF BS(K) 


THEN GO TO 1266 


1938 GO TO 19192 

1298 LET X=K+i 

1219 LET Y= 

1229 LET Y=Y+1 

1239 IF BS(X+Y)=" " THEN LET Q#= 

BS(X TO X+Y): GO TO 124¢ 

1235 GO TO 122¢ 

1249 LET M=¢ 

1259 LET M=M+1 

1268 IF QS<>ES(M, TO LEN Q%) THE 

N GO TO 1265 

1261 FOR G=15 TO 1 STEP -1: IF & 

$(M,G)=" " THEN NEXT G 

1262 PRINT F#(M,1 TO G)3" "$3 Ga 
To 128¢ 

1265 IF M<COUNT THEN GO TO 1259 
1278 LET Q@%=Q%( TO LEN Q%-1): PR 


INT FLASH 153Q%35: 


1239 


PRINT " ; 
GO TO 1619 
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The program goes through the text, looking for the space 
which indicates the start of a new word (the word, of 
course, Starts after the space, which is why — in line 1020 
— we added a space to each end of the input, so the 
program would not ignore the first and final words). Once it 
finds one (line 1020) it goes to the routine from 1200 which 
continues to search for the next space, so it can isolate the 


whole word. Then it simply runs through the vocabulary 
until it finds a match. 


? My mother went to see the sea with a 


very blue dog and a hot chicken supper 

—>MON MERE WENT A VU LE MER AVEC UNE 
TRES BLEU CHIEN ET UNE CHAUD POULET. 
SUPPER 


lf it does find such a match, the French word is printed in 
place of the English one, and the program returns to 1010 
to continue the search. Note that once a match has been 
found, the program immediately reverts to this point. It does 
not waste time searching through the rest of the 
vocabulary. This means that words near the top of the list 
will be translated more quickly than those at the end. This 
is why the commonly-used words (such as THE, ME and 


AM) are at the top of the list. 


Time now for you to experience a little MT of your own with 
TRANSLATE: 


18 REM ¥*% TRANSLATE ¥*¥* 
15 POKE 23658, 282 


26 GO SUB 9969: REM INITIALISE 
25 FLASH 8: BRIGHT 1: PAPER 1: 


INK 7: BRIGHT @: BORDER 1: CLS 
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38 INPUT AS: REM ACCEPT USER I 
NPUT 
35 BEEP .2,1 
4@ IF AS="" THEN STOP 
45 PRINT "?"3A% 
S@ INK 5: GO SUB 1998: INK 7: 
REM TRANSLATE 
68 GO TO 32 
249 LET M=1 
93@ STOP 
PDD REM KEKKKHEKHK HHH 
19G@ REM ¥*% TRANSLATE ¥¥ 
1992 PRINT TAB 23"-->"; 
1995 LET L=LEN A: LET K=@ 
1919 LET K=K+1 
1915 IF K=L THEN PRINT : PRINT : 
RETURN 
192G LET BS=" "+4Ase" ": IF BS(K) 





THEN GO TO 1299 


1938 GO TO 1@1@ 

1209 LET xX=K+l 

1218 LET Y= 

1226 LET Y=Y+1 

1236 IF BS(X+Y)=" " THEN LET Q$= 

BS(X TO X+Y): GO TO 1248 

1235 GO TO 1229 

1249 LET M=9 

1259 LET M=M+1 

1268 IF @S<>ES(M, TO LEN Q%) THE 

N GO TO 1265 

1261 FOR G=15 TO 1 STEP -1: IF F 

$(M,G)=" " THEN NEXT G 

1262 PRINT FS%(M,1 TO G)3" "3: GO 
TO 1286 

1265 IF M<COUNT THEN GO TO 125¢ 
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1278 LET Q$=Q%( TO LEN Q%-1): PR 
INT FLASH 13Q%3: PRINT " "s 

1288 GQ TO 1@1¢ 

SPPD REM HHEKHHHHHHHHE EHH 

FOSS REM XH INITIALISE ¥*¥ 

9895 CLS 

9919 DIM E%(199,15): REM TO HOLD 
ENGLISH WORDS 

9828 DIM F%(199,28): REM TO HOLD 
FRENCH WORDS 

9198 LET COUNT=¢ 

9185 LET COUNT=COUNT+1 

9118 READ E®(COUNT) ,F% (COUNT) 

9128 IF FS(COUNT,1)<>"%" THEN GO 
TO 9195 

94998 RETURN 

9599 REM ¥¥ DATA ** 

9518 DATA "THE", "LE", "ME", "MOI", 
"I", "JE", "HERE", "ICI", "AM", “SUIS 
", "ARE", "EST", "NOT", "NE", "IN", "D 
ANS" 

9515 DATA "WHEN", "QUAND", "YOU", " 

VOUS", "IS", "EST", "IT", "IL", "DAY" 
,"JOUR", "AND", “ET", "SOME", "DES", 
"OF", "DE" 

9528 DATA "HAVE", "AI", "A", "UNE", 
"MY". "MON", "YOUR", "VOTRE", "OF", 

DE", "TO", "A", "SEE", "VU", "VERY", ”" 
TRES" 

9538 DATA "ROOM", "CHAMBRE", "STEA 

KK", "ENTRECOTE", "FRIES", "POMME FR 
IES", "BIG", "GRAND", "FOR", "POUR" 

9548 DATA "MATCH", "ALLUMETTE", "S 

UPER", "FANTASTIQUE", "DEAD", "MORT 
" "WITH", "AVEC" 
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9558 DATA "GIN", "VIN", "WHISKEY", 
"VIN", "WHISKY", "VIN", "BEER", "VIN 
" "MARTINI", "VIN", "WINE", "VIN" 
9569 DATA "PARIS", "PLAINS®, "PLAI 
NS", "PARIS", "HAIR", "CHEVAUX", "CI 
GARETTES", "GAULOISES" 

9578 DATA "ARM", "BRA", "LEG", "JAM 


BE", "RIGHT", "DROITE", "LEFT", "GAU 
CHE" 

9589 DATA "TRENDY", "AVANT-GARDE 

", "MEDICINE", "VIN", "POLICEMAN", ” 
GENDARME" 

9599 DATA "DETECTIVE", "CLUESO", " 
DOOR", "PORTE", "HEAD", "TETE", "LOV 
E". "AMOUR" 

9699 DATA "HOUSE", "MAISON", "CHAI 
R". "CHAISE", “EYE", "ORIEL", "SUN", 
"SOLIEL”" 

9618 DATA "SONG", "CHANSON", “FRIE 
NDS", "AMIS", "BEHIND", "DERRIERE", 
"SEA", "MER", "MOTHER", "MERE" 

9628 DATA "CAT", "CHAT", "DOG", "CH 
IEN", "BLUE", "BLEU", "LITTLE", "PET 
ITE" 

9638 DATA "MUSIC", "MUSIQUE", "PLE 
ASE","S’IL VOUS PLAIT", "BOY", "GA 
RSON", "GIRL", "FILLE" 

9649 DATA "FISH", "POISSON", "CHIC 
KEN", "POULET", "DUCK", "CANARD", "M 
USTARD", "MOUTARDE” 

9659 DATA "HOT", "CHAUD", "COLD", ”" 
FROID", "EVERYBODY", "TOUT LE MOND 
ce 

9668 DATA "HELLO", "BONJOUR", "GOO 
D", "BON" 

9999 DATA "*", "%" 











one which — you may argue — hardly gives evidence of 
the presence of artificial intelligence. 


However, imagine you were reading a book like this 30 
years ago. The author makes a casual remark about a 
lowcost device writing poetry automatically, and then 
dismisses this aS a minor matter. Thirty years ago it would 
have been extraordinary. And, really, when you think about 
it, it still is. We have become so accustomed to the 


miraculous we tend to be blind to It. 


So, with that thought in mind, we turn to HANSHAN to 
create a few poems. The program is named after the 
Chinese poet HAN-SHAN, who lived in the 8th and Qth 
centuries. After falling out with his farming family, he 
wandered for many years, then settled as a recluse on the 
Cold Mountain (Han-Shan) after which he is now known. 


All the phrases used in this program's DATA store come 
from the book Chinese Poems (Arthur Waley, Unwin Paper- 


backs, London, 1982): 


378 REM ¥* SINGLE WORDS * 


38SG DATA "SCURRYING", "TREADING" 
», "GRAZING", "WI THERED", "CHISELLED 


398 DATA "MUFFLED", "FLANKED", "W 
RITHED", "BENDING", "TWISTING" 
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46% DATA "HAMMERED", "HANGING", " 
, "WINDING", "CLEAREST " 

414 DATA "EARTHWARD", "CATARACT" 
, "SACRIFICIAL", "SLIPPERY", "ASUND 
ER" 

420 REM * SHORT PHRASES * 

438 DATA "IN THE COOL STREAM" 
449 DATA "NODDED IN CLUSTERED G 
RACE" 

458 DATA "WAVES OF COOLNESS" 
469 DATA "QUT FROM THE DEEPEST" 
478 DATA "SULLEN, SULLEN" 

486 DATA "IN THE BLACK DARKNESS 
498 DATA "I TAKE YQUR POEMS" 
590 DATA "I PUT OUT THE LAMP" 
518 DATA "MY SHORT SPAN RUNS GU 
re 

528 DATA "THOSE THAT ARE LEFT" 
539 DATA "MEN OF LEARNING" 

548 DATA "MEN AF ACTION" 

S5@ DATA "I HURRY FORWARD" 

568 DATA "WHY SHOULD YOU WASTE" 
S78 DATA "WHEN SHALL WE MEET" 
58g DATA "LITTLE SLEEPING" 

S99 DATA "AND MUCH GRIEVING" 
688 DATA "FOR THESE FEW STEPS" 
61@ DATA "NOW AT DUSK" 

628 DATA "I HAVE DONE WITH PROF 
IT" 


The program selects from one of three patterns, within 
which it creates poems which are Haiku-like (the Haiku is, 
of course, a Japanese form, but the program does not mind 
any conflict between Chinese phrases and the form into 
which they are placed by the program): 


39 REM CHOOSE PATTERN 
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wa 


LET R=INT (RND¥3) +1 
GO SUB R¥59+49 


68 LET KK=RND: IF KK>.65 THEN 
LET DD=RND¥29-5: FOR G=DD TO DD+ 
5S: BEEP .1,3: BEEP .1,7: BEEP .1 
,-4: BEEP .1,G/2: NEXT G 

65 IF KK<.4 THEN FOR G=1 TO 5: 

BEEP .1,-7: BEEP .1,G¥3: BEEP 

2,-2: BEEP .5,3: NEXT G 

68 IF RND<.? THEN FOR G=-5 TO 
S: BEEP .1,G: NEXT G 

78 PRINT °? 

Sa GO TO 4¢ 

94 REM ¥¥ PATTERN ONE ¥*¥ 

19@G PRINT WS(INT (RND¥20) +1)3". 
.. "SWECINT (RND¥29) +1) 

11@ PRINT TAB 53"...."3WSC(INT ( 
RND¥2@0) +1) 

126 PRINT TAB 83S®(INT (RND¥22) 
+1) 

1398 RETURN 

148 REM ** PATTERN TWO ¥* 

15@ PRINT S#(INT (RND¥2@) +1) 

168 PRINT TAB 3;SS8(INT (RND¥29) 
#1)3"..." 

170 PRINT TAB 6;S$(INT (RND¥29) 
+1) 

188 RETURN 

198 REM ** PATTERN THREE ¥* 

288 PRINT TAB 35WS(INT (RND¥29) 
+1) 

21G PRINT S#(INT (RND¥2@) +1) 

228 PRINT TAB 3j;WSC(INT (RND¥29) 
#1)3", "SSSCINT (RND¥298) +1) 

23@ RETURN 


Some of the poems produced by HANSHAN have a Surpris- 
ing degree of merit: 


SULLEN, SULLEN 


I TAKE YOUR POEMS... 
MEN OF LEARNING 


WHEN SHALL WE MEET 


FOR THESE FEW STEPS... 
IN THE BLACK DARKNESS 


HANGING... TWISTING 
..-e WRITHED 
THOSE THAT ARE LEFT 





WHY SHOULD YOU WASTE 


WAVES OF COOLNESS... 
NOW AT DUSK 


MEN OF LEARNING 
MEN OF ACTION... 
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Here is the HANSHAN listing to enable you to create a 
nearly infinite sequence of poems. By all means modify the 
DATA statements to make the program (and its output) your 
Own: 


1@ REM HANSHAN 
i= CLS : CLEAR : BRIGHT 1: FLA 


SH @: INK 7: PAPER 1: BRIGHT @: 
RORDER 1 
28 GO SUB 25@: REM INITIALISE 
3G REM CHOOSE PATTERN 
49 LET R=INT (RND¥23) +1 
Sa GO SUB R¥50+49 
6@ LET KK=RND: IF KK>.65 THEN 
LET DD=RND¥2@-5S: FOR G=DD TO DD+ 
S: BEEP .1,3: BEEP .1,7: BEEP .1 
.-4: BEEP .1,G/2: NEXT G 
65 IF KK<.4 THEN FOR G=1 TO 5S: 
REEP .1,-7: BEEP .1,G¥3: BEEP . 
2,-2: BEEP .5,3: NEXT G 
68 IF RND<.? THEN FOR G=-5 TO 
S: BEES .1,G: NEXT G 
7@ PRINT *? 
ag Go Ta 4¢g 
90 REM ¥% PATTERN ONE ¥*¥ 
1G@ PRINT WSCINT (RND¥2@)+1)35". 
.."SWSCINT (RND¥20) +1) 
11@ PRINT TAB 53"...."3WSC(INT ( 
RND¥2G) +1) 
12@ PRINT TAB 8S3S#8(INT (RND¥29) 
#1) 
13@ RETURN 
149 REM ** PATTERN TWO ¥* 
15@ PRINT S#®(INT (RND¥2@) +1) 
16@ PRINT TAB 3;3;SS8(INT (RND¥2@) 
2S hes oe 


1/76 


+1) 


180 
199 
LUA 


+1) 


+1)5", 


c1@ 
228 


238 
248 
LID 
LOD 
LIB 
23D 


LID 
28GB 
31¢ 
32 

534 
39D 
535¢ 
369 
378 
589 


PRINT TAB 6;S$(INT (RND¥29) 
RETURN 

REM *¥* PATTERN THREE *¥* 
PRINT TAB S35;WS(INT (RND¥29) 


PRINT SS(INT (RND¥2@) +1) 
PRINT TAB 33;WS(INT (RND¥29) 
"SSB(INT (RND¥2Q) +1) 
RETURN 

REM KHEKHKKK HHH HHI 

REM ¥ INITIALISATION*¥ 

CLS 

RANDOMIZE 

DIM WH(28,12): DIM $#(20,26 
FOR J=1 TO 2a 

READ WH(J) 

NEXT J 

FOR J=1 Ta 24 

READ S#(J) 

NEXT J 

RETURN 

REM ¥X¥¥X% DATA HHS 

REM ¥ SINGLE WORDS * 

DATA "SCURRYING", "TREADING" 


"GRAZING", "WI THERED", "CHISELLED 


39D 


DATA "MUFFLED", "FLANKED", "W 


KRITHED", “BENDING", "TWISTING" 


4FOPd 


DATA 'HAMNMERED", "HANGING", " 


WINDING", "WINDING", "CLEAREST" 


SLY 


DATA "EARTHWARD", "CATARACT" 


,"SACRIFICIAL", "SLIPPERY", "ASUND 
ER" 
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420 REM * SHORT PHRASES ¥ 


439 DATA 
442 DATA 


RACE" 


458 DATA 
468 DATA 
478 DATA 
4eaq DATA 





4990 DATA 
SOB DATA 
Y1GD DATA 
TH 

I20 DATA 
—398 DATA 
2499 DATA 
3990 DATA 
S69 DATA 
378 DATA 
89 DATA 
29S DATA 
600 DATA 
6126 DATA 
620 DATA 
IT" 


"IN THE COOL STREAM" 
"NODDED IN CLUSTERED G 


"WAVES OF CQOQLNESS" 
"OUT FROM THE DEEPEST" 
"SULLEN, SULLEN" 

"IN THE BLACK DARKNESS 


"I TAKE YOUR POEMS" 
"I PUT OUT THE LAMP" 
"MY SHORT SPAN RUNS OU 


“THOSE THAT ARE LEFT" 
"MEN OF LEARNING" 

"MEN AF ACTION" 

"I HURRY “FORWARD” 

"WHY SHOULD YOU WASTE" 
"WHEN SHALL WE MEET” 
"LITTLE SLEEPING” 

"AND MUCH GRIEVING” 
"FOR THESE FEW STEPS" 
"NOW AT DUSK" 

"I HAVE DONE WITH PROF 


I HURRY FORWARD 


I 


TAKE YOUR POEMS... 
SULLEN, SULLEN 
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SECTION FOUR — HELPING 
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CHAPTER ELEVEN — 
EXPERT SYSTEMS 


There is a limited number of experts in the world on any one 
subject. It doesn't matter what field you're talking about — 
mending cars, mining for uranium, diagnosing human illness, 
sorting edible mushrooms from poisonous ones — there is 
a limit to the number of experts we have available. 





Now while the world is not exactly crying out for more 
mushroom-sorting experts, there are areas of the world 
(most of it in fact) where there are not enough doctors. One 
idea of an expert system is to ‘capture’ the expertise of one 
of our experts on a computer, in such a way that a non- 


expert can tap the information. 


Expert systems is the one area of Al research where signifi- 
cant strides have been made. It is the area where such 
systems are already making genuine, economically viable 
contributions. And is the one area of Al which is not at all 
bothered by questions of whether or not the machine dis- 


playing the expertise is ‘thinking. 


In its simplest form, an expert system is a series of IF/THEN 
statements. A diagnostic system could be as simple as this: 


IF the patient is coughing 
AND he has recently been soaked to the skin 
AND then stood in a freezing wind for an hour 
THEN the patient has a cold or pneumonia. 


of course, one would hardly need an expert system to make 
a diagnosis like this (and note that | am not suggesting the 


23/ 


diagnosis of my IF/THEN chain is necessarily correct). An 
expert system comes into its own when either of the 


following conditions exist: 


— the expert is not present but his or her expertise is; 


— even the ‘expert’ doesn’t Know with 100% certainty 
the casual links between the observations and the 
results. This could happen if a medical researcher 
was aware that patients contracting disease X have 
tended to have had contact with foods A and B and 
have blood group C... although no way of linking 
A, B and C — apart from the fact that they appear 
together — had been discovered. In this case, a 
properly programmed expert system could make 
predictions about the likelihood of individual D 
contracting the disease, even when the percentage 
contribution that factors A, B and C made were 
unknown. By studying enough cases, the expert 
system could not only devise its own rules for 
predicting whether a particular individual would, or 
would not, contract the disease, but could then 
explain its reasoning to a human physician. 


In the section of the book on learning and reasoning we 
talked about ‘logic circuits’ and discussed the way these 
made decisions, according to the rules of Boolean Algebra. 


The ‘mathematics of reasoning’ are very important in the 
construction of expert systems. Often a person ‘drawing 
out the expertise of a human being in order for it to be 
encoded into an expert system database (and we'll look a 
little later at some of the systems which are at work around 
the world at present) discovers the expert does not know 
how he or she actually reaches decisions. 


It can be as much of a revelation to the expert as to the 
person creating the knowledge base for the computer 
program. In The Fifth Generation — Artificial Intelligence 
and Japan’s Computer Challenge to the World (Reading, 
Massachusetts: Feigenbaum, Edward A. and McCorduck, 
Pamela, 1983; pp. 85, 86) we read the very sad story of an 
expert who willingly explained his methods to a ‘know- 
ledge engineer’ (the name given to those who draw out 
others’ expertise and then modify it for the computer 
program). The expert was highly regarded (and well paid) 
for his expertise, and was at first disbelieving when the 
Knowledge engineer discovered the expertise could be 
reduced to a few hundred ‘working rules of thumb”. From 
disbelief, the expert's view changed to one of depression, 
and finally he quit his field, a broken man. 





Machines make decisions based on their internal rules. 
These are — as we Saw in the discussion leading up to the 
learning and reasoning programs — relatively simple. 
Elementary logical reasoning comes down to a relatively 
few, easily expressed, rules. 


We saw that syllogisms could be expressed, and solved, 
by machine, because they took the following form: 


AisaC 
CisaB 
Therefore, AisaB 





The hope of reducing reasoning to a mechanical process 
has been with us a long time. Back in 1677, in the preface 


to the work The Genera! Sciences, Gottfried Leibniz wrote: 
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If one could find characteristics or Signs appro- 
priate for expressing all our thoughts as clearly 
and exactly as arithmetic expresses numbers or 
analytic geometry expresses lines, we could in all 
subjects, in so far as they are amendablie to 
reasoning, accomplish what is done in arithmetic 


and geometry... 


Moreover we should be able to convince the world 
of what we had found or concluded since it would 
be easy to verify the calculation... if someone 
doubted the results | should say to him: ‘Let us 
calculate Sir, and taking pen and ink we should 
soon settle the question. 


Rather than taking pen and ink, we can now take silicon, 
and find answers to at least some questions which are 
beyond most of us to discover (such as the ability to 
predict the chemical structure of a not-yet-developed 
Compound, as one expert system can do) and indicate the 
solutions to problems which nobody alive can solve. 


LIMITATIONS 


Unless they are specifically programmed to alert an 
operator to it, expert systems can be pretty stupid when 
they come across something which does not fit within their 
preprogrammed repertoire. It is like someone who is 
Drilliant at chess, but unable to master the steps needed to 
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Such systems have no ability to extend their knowledge 
base while operating, and can only think in a straight line 
from point A to B, then of B to C and so on. Such a system 
may have no way of knowing when its laboriously 
programmed knowledge was inappropriate, no way of 
recognizing the exception to the rule. 








The system we will develop comes within the idiot savant 
description. But despite this limitation, which applies to the 
majority of expert systems in use in the world today, you'll 
find the systems you develop are fascinating artefacts. Our 
final system, as you'll see, does have the ability to learn. In 
fact, you simply tell it — as it tries to distinguish between 
any number of things you have programmed into it — 
whether its guess was right or wrong, and eventually it will 
have taught itself to distinguish between the: objects, 
without you explicitly felling it how to make the distinction 


between them. 






CHEMICAL STRUCTURE 
AND DENDRAL 








Before we get to our own expert systems, we will have a 
look at some of the systems in use at present, and see what 


we can learn from examining them. 





The first program we will look at, and possibly the world's 
first real, working expert system, is called DENDRAL. Work 


on this system — which is able to work out facts about 
molecular structures from raw chemical data — began at 


Stanford University in 1965. Bringing together expertise 
from a number of disciplines (with those which provided 


DENDRAL with its working knowledge base of physical 
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chemistry), DENDRAL’s creators eventually produced a 
system which now performs better than anyone in the world 
in its field (including the men who built it). DENDRAL is in 


use around the world. 


Stanford was also the breeding ground for MYCIN, a system 
which diagnoses blood and meningitis infections, then 
gives treatment suggestions. MYCIN bases it conclusions 
on physical data entered by a physician, and can — if 
requested — explain how it came to reach the diagnosis it 
did. The system contains some 450 rules. 





The knowledge base in MYCIN is so valuable that a 
Companion program — GUIDON — has been developed to 
enable the computer to act as a teacher, thus acting aS a 
bridge from one human expert (or, a set of them in this case) 
to another, newly-minted human expert. 


That is still not the end of the MYCIN’s value. Much of the 
program consists of ways of manipulating the rules it has 
been given, and drawing conclusions from them. The 
mechanisms of manipulation and inference are —to a large 
extent — independent from the Knowledge base. This 
suggests that the information relating to blood infections 
could be removed, and new information be added. This has 
been done, and the expert system PUFF now dispenses 
Similar assistance to that given by MYCIN, but in relation to 
lung disorders. 


So effective was thiS process (and in one trial of 150 
patients, PUFF produced the same diagnosis as did human 
specialists) that another version of MYCIN, simply called 
EMYCIN (for Empty MYCIN) has been developed, into which 
other knowledge bases can be entered. 
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The expert system MOLGEN (for MOLecular GENetics) 


assists biologists working on DNA and with genetic 
engineering. It is widely used. 


The most interesting thing — in terms of examining the 
directions Al researching is taking — IS that expert 





immediate practical needs for that which is being 
developed, and big bucks are available for the developers. 


Think of a system which gave advice on where to drill for 
oll. A single find, and the cost of developing the system, 
even if that ran into the millions, could be earned back 
relatively quickly, perhaps even in a matter of days. 


Feigenbaum and McCorduck (in The Fifth Generation, 
mentioned earlier, pp. 72, 73) give a graphic example of the 
‘earning-back’ power of major expert systems. They cite 
the case of a major American company which has recently 
bought an expert system designed to diagnose failures in 
particular types of electricity generating plants. Testing an 
early, and largely incomplete, version of the program 
against the real data that led to one of the company’s plants 
being shut down in 1981, it was found the system 
discovered the cause of the problem that led to the 
shutdown in a matter of seconds. It had taken the human 
experts working at that plant days to come to the same 
conclusion. In the meantime, the plant had been shut down 
for four days, a closure that cost the company around $1.2 


million. 





There are many other systems in use or under development 
around the world. These include: 


— PROGRAMMER’S APPRENTICE: A system for 
helping, as its name suggests, with the writing of 
software. 


—EURISKO: An expert system which is able to 
learn as it works, which creates three- 
dimensional microelectric circuits. 


— TAXMAN: Under development at Rutgers 
University, this system is intended to examine 
changing tax rules, and from them give advice to 
Companies on how to best operate within those 
rules. 


— GENESIS: An exciting-sounding one. This 
system, which is on the market now, allows 
scientists to plan and simulate gene-splicing 
experiments. 


I'm afraid we wont be getting into gene-splicing just yet 
although we will be finding some interesting applications 
for our expert systems (such as differentiating between a 


man, a horse and a Sparrow!). Let’s have a look at the first 
of our systems now. 
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CHAPTER TWELVE — 
THE LITTLE SPURT 


Our first expert system is SPURT. This program has the 
ability to tell, without error, the difference between three 
living creatures — aman, a horse and a Sparrow. Although 
this a pretty silly situation, and one which probably does 
not arise very often in your experience, it can teach us a 
great deal about how some kinds of expert systems are 
developed. 





Imagine a medical diagnosis expert system. We ll call our 
imaginary system MEDICI. MEDICI and SPURT are close 
Cousins, as you'll see, and studying SPURT will give you a 
base upon which you can build up a useful degree of 
Knowledge of MEDICI and other, more wide-ranging, expert 


systems. 


You are about to have a session with MEDICI. The system 
asks you a large number of questions which you answer 
with a YES or a NO, as follows: 


ARE YOU MALE? 
ARE YOU MORE THAN 40 YEARS OLD? 
DO YOU SMOKE’ 
HAVE YOU HAD A CHECKUP IN THE LAST 12 MONTHS? 


DO YOU WORRY FREQUENTLY? 
WOULD YOU DESCRIBE YOURSELF AS A TENSE PERSON? 


And so on. After a string of these questions, MEDICI pauses 
for ananosecond or two, then prints the following message 


on the screen: 
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THANK YOU. YOUR LIFE EXPECTANCY IS 79 YEARS, THUS 
EXCEEDING 11% OF THE POPULATION. TO INCREASE YOUR 
CHANCES OF REACHING, OR EXCEEDING THIS, I isin 


YOU = TRY TO STOP SMOKING 


- GET REGULAR MEDICAL CHECKUPS 
- INCREASE YOUR EXERCISE EACH WEEK 


THANK YOU FOR CONSULTING MEDICI 


What did MEDICI do ? How did it turn your YES/NO answers 
into a life expectancy prediction? Actually, as I’m sure 
you ve already decided, this is not a very sophisticated 
program, and would not demana a very high level of 
expertise. However, it shows how a real medical diagnosis 
program might begin, if the expert system was interacting 
directly with a patient, rather than with a physician as is 
generally the case at present. 


Pleased that youre going to live longer than 11% of the 
population, you settle down to make the acquaintance of 


another expert, young SPURT. Here’s what you see on your 
screen: 


I WANT YOU TO THINK OF A MAN, A HORSE 
OR A SPARROW 


DOES IT HAVE TWO LEGS 
Y OR N? Y 


CAN IT WALK 
Y OR N? Y 


CAN IT FLY 
Y OR N? N 
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YOU WERE THINKING OF A MAN 


"Ene @- Ge amp GP G2 GE @- = Ge Gee a= Gb Qa gabe @>: @ep G= Ga» 


PRESS 'RETURN' FOR ANOTHER ONE, OR 


ANY KEY AND THEN 'RETURN' TO QUIT 
? 


Of course, SPURT is right. It was not very hard to determine 
from your answers that you were thinking of a man. Very 
impressed, you press the ‘RETURN’ key, and have another 
run: 


I WANT YOU TO THINK OF A MAN, A HORSE 
OR A SPARROW 


DOES IT HAVE TWO LEGS 
Y OR N? Y 


CAN IT WALK 
Y OR N? Y 


CAN IT FLY 
Y OR N? Y 


YOU WERE THINKING OF A SPARROW 


Surely it couldn't do it again, you think, and try for the third 
alternative: 


I WANT YOU TO THINK OF A MAN, A HORSE 
OR A SPARROW 
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DOES IT HAVE TWO LEGS 
Y OR N? N 


CAN IT WALK 
Y OR N? Y 


CAN IT FLY 
Y OR N? N 


YOU WERE THINKING OF A HORSE 


This time you decide to quit. How does SPURT record the 
answers to your questions so it can determine that if you 
Said the creature you were thinking of had two legs and 
could walk, but could not fly, was a man? How, for that 
matter, could MEDICI tally your answers and tell you that 
you d live till you were 797? 


It is very simple, at least in the case of SPURT (and MEDICI 
worked the same general way, only with a considerable 
degree of refinement). SPURT counted each time you gave 
the answer ‘Y to a question. If you gave only one ‘Y’ 
answer, you must have been thinking of a horse (as the 
WALK question was the only one to which you could reply 
‘YY’ if you were thinking of a horse). Two ‘Y’ answers, and it 
was aman you had in mind. Three, and SPURT knew it was 


the sparrow you were thinking of. 





MEDICI not only counted your answers, but noted which 
question they referred to. A ‘Y’ to DO YOU SMOKE? 


clocked three years off your expectancy, while a ‘Y’ 
answer to DO YOU TAKE VIGOROUS EXERCISE REGU- 
LARLY ? added five years to your expected span. 
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The SPURT listing starts as follows: 


18 REM SPURT 

{S PAPER 1: INK 7: BRIGHT @: F 
LASH @: PORDER 1 

2@ POKE 2358,2@@: CLS 

38 PRINT "I WANT YOU TO THINK 
OF A MAN A HORSE CR & SPARROW 


“4 PAUSE 466 
OY PRINT ’? 
/,O8 GQ SUB 170: REM ASK GUESTIO 


After setting the scene, the real business of determining 
which creature you re thinking about begins: 





176 REM ** ASK QUESTIQNS 
18¢@ LET COUNT=9 

19G@ PRINT INK 33; "DOES IT HAVE T 
WO LEGS" 

266 GO SUB 319 

Z2i@ PRINT INK 33;"CAN IT WALK" 
226 GO SUB 3190 

228 PRINT INK 33 "CAN IT FLY" 
2499 GO SUR 314 


SAG REM KHEKKKKEKKKEKEKKEKKEKEE 
=1@ REM ¥*¥ PROCESS ANSWER ** 





KX 


326 INPUT ® Y OR NP "325 
S338 IF 26¢>"N" AND 2S°¢7>"7" THEN 
GQ TO 32¢ 

340 IF 2¢="Y" THEN LET COUNT=CO 
UNIT +1 

SSG PRINT 


268 RETURN 
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You'll see that the variable COUNT its set to zero at the start 
of the run, and incremented by one each time a ‘Y’ answer is 
given. Using this information, SPURT has no trouble decid- 
ing which creature you're thinking about: 


258 PRINT "YQU WERE THINKING OF 
AS 

26@ IF COUNT=1 THEN PRINT FLASH 
15 INK 43; "HORSE" 

7@ IF CQUNT=2 THEN PRINT FLASH 
13 INK 43; "MAN" 
288 IF COUNT=3 THEN PRINT FLASH 
13 INK 43; "SPARROW" 
298 RETURN 


As you can see, it is a pretty simple program, but one which 
lays a foundation upon which expert systems could be 
built. Here’s the complete listing: 


19 REM SPURT 

15 PAPER 1: INK 7: BRIGHT @: F 
LASH @: BORDER 1 

206 POKE 2358,29@: CLS 

3G PRINT "I WANT YOU TO THINK 
OF A MAN A HORSE OR A SPARROW 


“08 PAUSE 462 
69 PRINT ’*’ 
78 GO SUB 170: REM ASK QUESTIO 


88 PRINT °; INK 23 "----------- 
19 PRINT *"PRESS ""RETURN"" FO 
R ANOTHER ONE OR ANY KEY AND TH 


EN ""RETURN"" TO QUIT." 
11¢6 INPUT Q& 
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1260 IF Q$<>"" THEN STOP 

14g; CLS 

138 GQ TQ 34 

LED REM HRKKHKHKKKHKKHKHKKKKHKKH 

176 REM ** ASK QUESTIONS ¥* 

13¢@ LET COUNT=2 

198 PRINT INK 5S; "DOES IT HAVE T 
WO LEGS" 

206 GQ SUB 314 

21@ PRINT INK S33; "CAN IT WALK” 
£29 GO SUR 3104 

£36 PRINT INK S35 "CAN I7 FLY" 
299 GO SUB 31940 

Zoe PRINT "QU WERE THINKING OF 
A "5 

268 IF CQOUNT=1 THEN PRINT FLASH 
1; INK 4; "HORSE" 

276 IF CQUNT=2 THEN PRINT FLASH 
1; INK 45 "MAN" 

286 IF COUNT=3 THEN PRINT FLASH 
1; INK 4; "SPARROW" 

2°O RETURN 

SAD REM KEEKKEKEKKKKEKKKKKEKKEE 
3S1G REM *¥* PROCESS ANSWER *¥* 
32¢G INPUT " Y OR WN? "3 2% 
338 IF 26¢>"N" AND 2S¢7>"7" THEN 
GO TO 3298 

3498 IF 2F="Y" THEN LET COUNT=CC 
UN T +1 

398 PRINT 

369 RETURN 
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THE LITTLE X-SPURT 


X-SPURT is SPURT’s big brother. Although this new 
program bears a definite family relationship to the one we 
first looked at, it is considerably more sophisticated. 


You can see this increased sophistication by looking at a 
Sample run from it. Firstly, we will get it to perform much as 
SPURT did. However, you can tell from the opening frame 
that this is a rather different program. It is largely ‘soft’, that 
is the expertise is not hardwired as in the case of SPURT 
but can be entered differently for each run. 


NAME CF SYSTEM? CREATURES 


NUMBER OF OUTCOMES? 3 


NUMBER OF FACTORS TO BE CONSIDERED? 3 





You tell the program its subject matter (CREATURES in this 
case), and then the number of OUTCOMES (that is, results) 
and the number of FACTORS TO BE CONSIDERED. These 
are the variables (Such as CAN IT FLY) which must be 
considered. Having given it the framework, X-SPURT now 
asks you to fill in the outlines: 


CREATURES 
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Having told it the outcomes, it asks you to enter the 
questions which relate to the factors which determine 
which outcome you are seeking: 





PLEASE ENTER QUESTION 1 
_ ? DOES IT FLY UNAIDED 


PLEASE ENTER QUESTION 2 
? DOES IT HAVE TWO LEGS 


PLEASE ENTER QUESTION 3 
? DOES IT WALK 


This may seem like a lot of trouble we're going to, just to 
emulate SPURT, but — as you'll see shortly — it will be 
worthwhile. This simple exercise is showing you how 
X-SPURT can be trained to become an expert on just about 


anything. 


X-SPURT now goes through each of the outcomes you have 
entered, and says ‘If | asked the following question, in 
respect of this outcome, would you answer ‘yes’ or ‘no. 
From this information, X-SPURT can assemble an equiva- 
lent Knowledge base to the one which was hardwired into 
SPURT. Of course, X-SPURT could be building up a 


Knowledge base on just about anything. 


PLEASE ANSWER THE FOLLOWING QUESTION 
FOR AN OUTCOME OF > MAN < 
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ENTER 'Y' FOR 'YES' ANSWER 
OR 'N' FOR A 'NO' REPLY 


> DOES IT FLY UNAIDED? N 


> DOES IT HAVE TWO LEGS? Y 


> DOES IT WALK? Y 


PLEASE ANSWER THE FOLLOWING QUESTION 
FOR AN OUTCOME OF > HORSE < 





ENTER 'Y' FOR 'YES' ANSWER 
OR 'N' FOR A 'NO' REPLY 


> DOES IT FLY UNAIDED? N 


> DOES IT HAVE TWO LEGS? N 


> DOES IT WALK? Y 


PLEASE ANSWER THE FOLLOWING QUESTION 
FOR AN OUTCOME OF > SPARROW < 





ENTER 'Y' FOR 'YES' ANSWER 
OR 'N' FOR A ‘'NO' REPLY 


> DOES IT FLY UNAIDED? Y 


> DOES IT HAVE TWO LEGS? Y 


> DOES IT WALK? Y 


Once you ve been through each of the possible outcomes. 
and told it what your answers would be for the questions, 
X-SPURT creates a ‘knowledge base’, which in this case is 
little more than adding up the total ‘Y’ replies. X-SPURT 
reports its findings to you: 





THIS IS MY EXPERT BASE: 


MAN —— 6 


HORSE —— 4 


SPARROW —— 7 


But where did it get those numbers? You could not have 
given four ‘Y’ answers for horse, or 7 for Sparrow, because 
there are only three questions. X-SPURT does not add a 
Single one for each ‘Y’ answer, but instead gives a number 
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which changes for each answer. If there was just one 
awarded for each ‘Y’ and you answered 'Y to, Say, 
questions one and three for one thing, and to questions two 
and three for another thing, it would have the same total for 


both objects. 


To get round this, to ensure that the actual order in which 
the ‘Y’ answers are given is important, we proceed as 
follows: 


A 'Y' answer to question 1 is worth 1 
A 'Y' answer to question 2 is worth 2 
A 'Yt answer to question 3 is worth 4 
A 'y't answer to question 4 is worth 8 


uae 5 hin 10 
TTT 6 rae. Be 
vTTe T oo. 64 


This makes sure that, even if the same number of ‘Y’ 
answers are given for two different things, a different identi- 
fying number will be given to our expert by which to make 
judgements. 


Does it work? Of course it does, and here is X-SPURT 
showing itself in action: 


PLEASE ENTER 'Y' OR 'N'... 


DOES IT FLY UNAIDED 
? N 


2956 


DOES IT HAVE TWO LEGS 
2 Y 


DOES IT WALK 
° Y 
| > MY RESULT WAS 6 


> YOU WERE THINKING 
OF MAN 


| said before that X-SPURT was capable of doing a great 
deal more than SPURT, and now | will show the truth of that 
Claim. We are going to train our expert system in another 
field, one in which | have no expertise whatsoever. The 
Knowledge base fed into X-SPURT came from a book, 
written by an expert called Oliver Chambers (The 
Observer's Book of Rocks and Minerals, New York: 
Frederick Warne, 1979). With the help of Mr. Chambers’ 
expertise, X-SPURT ts about to acquire the skills to identify 
five different types of minerals, using four factors. 








This is something | could not do without X-SPURT's help. 
This is true for most people using expert systems today. An 
expert system encodes, as it were, an absent expert's 
expertise, so non-experts can make use of that Knowledge 


base at will. 


Let’s pass some of Mr. Chambers’ Knowledge onto our 
system (starting with a new run, so that minerals do not 
become confused with horses and sparrows): 


2907 


We tell it the subject matter: 


NAME OF SYSTEM? MINERAL IDENTIFICATION 


NUMBER OF QUTCOMES? 5 





NUMBER OF FACTORS TO BE CONSIDERED? 4 





Then we give it the five minerals it will be trying to identify: 


WHAT IS QUTCOME 1 ? PLEONASTE 


WHAT IS OUTCOME 2 ? LIMONITE 








WHAT 1S OUTCOME 3 ? IODYRITE 


WHAT IS OUTCOME 4 ? IRIDOSMINE 


WHAT IS OUTCOME 5 ? SYLVANITE 


Next, X-SPURT learns some questions which will assist it in 
discriminating between the minerals: 


PLEASE ENTER QUESTION 1 
? IS IT HARD 


PLEASE ENTER QUESTION e 


? DOES IT CONTAIN STREAKS OF A DIFFERENT 
COLOR FROM THE MAIN COLOR 


PLEASE ENTER QUESTION 3 
? IS ITS SPECIFIC GRAVITY ABOVE 5 
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PLEASE ENTER QUESTION 4 
? 1S IT FUSIBLE 


Now it takes the user through the long process of encoding 
the expertise: 


PLEASE ANSWER THE FOLLOWING QUESTION 
FOR AN OUTCOME OF > PLEONASTE < 





ENTER 'Y' FOR 'YES' ANSWER 
OR 'N' FOR A 'NO' REPLY 


> IS IT HARD? Y 


> 
DOES IT CONTAIN STREAKS OF A DIFFERENT 


COLOR FROM THE MAIN COLOR® N 


>» IS ITS SPECIFIC GRAVITY ABOVE 5? N 


> IS IT FUSIBLE? N 


It does this for the rest of the minerals, limonite, sylvanite 
and all. Finally, it reports its findings: 


THIS IS MY EXPERT BASE: 


259 


PLEONASTE -——— 1 


LIMONITE —- 8 

IODYRITE —- 12 
IRIDOSMINE —- 7 
SYLVANITE --- 12 


Let's put it into action and see how well it does: 


PLEASE THINK OF ONE OF THE FOLLOWING 


PLEONASTE 
LIMONITE 
IODYRITE 


IRIDOSMINE 
OR SYLVANITE 


PLEASE ENTER 'Y' OR 'N'... 


IS IT HARD 
2 N 


DOES IT CONTAIN STREAKS OF A DIFFERENT 
COLOR FROM THE MAIN COLOR 
2 N 
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IS ITS SPECIFIC GRAVITY ABOVE 5 
2 N 


IS IT FUSIBLE 
? Y 


> MY RESULT WAS 8 


> YOU WERE THINKING 
OF LIMONITE 


In a matter of minutes, X-SPURT has acquired knowledge 
which allows me, as a total non-expert in that field, to make 
use of expert judgement in a practical situation. 


We will now look at the construction of the program, to see 
how a ‘soft-wired’ SPURT has been created. 


The program is controlled by a loop of subroutine calls: 


1@ REM X-SPURT 
15 POKE 23658,29@: INVERSE @: 


FLASH @: BRIGHT 1: FAPER 1: INK 
7: BRIGHT @: BORDER 1: CLs 
28 GO SUB 346: REM INITIALISE 
38 GO SUB 458: REM "GAIN EXPER 


TISE” 
4@ GO SUB 126: REM DEMONSTRATE 


EXPERTISE 
548 GQ SUB 1969 
66 PRINT "PRESS ""ENTER"" FOR 
ANOTHER TURN OR ANY KEY THEN °" 
ENTER"" TO QUIT." 


SA INPUT QS 
9f@ IF Qst="" THEN GO TO 48 


148 STQP 
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In the initialisation Subroutine, X-SPURT acquires a name 
for the system (useful if you wish to save the entire 
expertise as a file) as well as the number of outcomes and 
factors. Arrays are dimensioned to hold the names and 
totals of the outcomes, as well as the questions relating to 


the factors. 
94a 
956 
96GB 


REM *¥*¥ INITIALISATION ¥* 
CLS. 
INFUT "Name of system? "j;NS 


97GB GO SUB 10690 

98H INFUT "Number of outcomes? 
"SQUTCQMES 

990 GO SUB 166¢ 

19090 INPUT "Number of factors to 
be considered? ";FACTOR 
19616 DIM AS(GUTCOMES,15): DIM 38s 


(FACTORS, 32) 


1G290 


DIM D(QUTCQOMES) 


1G3g CLS 


1G4g 


RETURN 


The next section of code the program visits gets the names 
of the outcomes: 


45d 
469 
47/2 
48¢9 
49D 
wah 25 4) 
V1IDG 
a 
ILE 
(J) 
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REM *##%¥ FILL ARRAYS XX 
PRINT TAB (290-LEN N@/2)5N% 
GO SUB 1969 

REM * GET OUTCOME NAMES ¥* 
FOR J=1 TO OUTCOMES 

GO SUB 1962 

PRINT “What is outcome "3]J;3 


INPUT AS(J): PRINT INK 4;3A% 


NEXT J 


And then X-SPURT asks for the factors, the questions to be 
asked: 


23990 REM *¥¥ GET QUESTION TO BE 
ASKED + 

%~698 FOR J=1 TO FACTORS 

2/78 GO SUB 1962 

33O PRINT "Please enter questio 
mn "3 J 

9790 INPUT Bt(J) 

6969 NEXT J 





All this is just preparation. Now, X-SPURT wants to get 
some hard information, so it runs through the outcomes 
(using the J loop, from 630 through to 810) and within that 
the factors (with the K loop, 720 through to 800): 


629 
639 
649 
659 
6698 


llowing 


REM *#* ACQUIRE EXPERTISE ** 
FOR J=1 TO OQUTCOMES 

CLS 

GO SUB 1969 

PRINT "Please answer the fo 
Question"’ "For an ou 





tcome of oO"; AS(JII5"<* 


689 
69D 





Yes ga 08 
os 668 No Op 68 


PBS 
226 
P38 
PAD 
PID 
7 OD 
27D 
789 


GO SUB 1969 
PRINT "Enter 
answer"*’ ” 

reply" 
LET xX=.93 

FOR K=1 TO FACTORS 
LET X=AtX 

GO SUB 190698 
PRINT TAB 45 "> 
LET MULTI=9 
INPUT YS 
IF Yt="N" 


00 7 4+ or: | 
or “"N"" For a 


"3 BS(K) 5 


THEN LET MULTI=1 
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7968 LET D(J)=D(J)+XX¥MULTI:S REM 
COMPILE EXPERT BASE 

860 NEXT K 

SiG NEXT J 


Having done this, X-SPURT shows you what it has managed 
to learn: 


S308 PRINT "This 18S my expert Da 
se:" 

8490 FOR J=1 TO OUTCOMES 

8358 GO SUB 1969 

S690 PRINT AS(J)5" ---"sD(J) 

S798 NEXT J 

S80 GO SUB 196% 

S99 PRINT TAB 85 "Press “"ENTER" 


GOB INPUT QF 
91G CLS 
925 RETURN 


With this information safely under its belt, X-SPURT is 
ready and able to perform in much the same way SPURT 
did, asking questions, adding up numbers, and from the 
total, making a decision: 


120 REM *DEMONSTRATE EXPERTISE 


138 CLS 

140 GO SUB 14968 

ime PRINT INK 63 INVERSE 135°” F 
lease trkink of one of the + 


Gllowing- v3 
166 FOR J=1 TQ OUTCOMES 
174 PRINT TAB Jt+235 
1386 IF J=OUTCOMES THEN PRINT ‘“C 
roo" § 
19G PRINT AS(J) 
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c<OG NEXT J 

<1@ GO SUB 186¢ 

22686 LET RESULT=94 

239 LET X=.5 

24349 PRINT "Please enter 


r- a ea 

2986 FOR J=1 TQ FACTORS 
2690 LET *=xX+xX 

</@ GO SUB 166@ 


238 PRINT B#(J) 


os 00 Y a 


O 


29G INPUT ES 

36090 IF EG="N" THEN LET RESULT=R 
ESULT +x 

310 NEXT J 

328 PRINT TAB 35 INK 35"> My re 
Sult was ";RESULT 

339 GQ SUB 1969 

340 LET M=9 

350 LET M=M+1 

368 IF D(M)=RESULT THEN GO Ta 4 
OA 

2760 IF M<OQUTCQMES THEN GO TQ 35 
2) 

338 PRINT TAB 23; FLASH 1; INK 5S 
s' ry I cannot identify it <<"5 F 
LASH @: FOR R=3 TO 18: BEEP .2,- 
4: BEEP .1,1¢€-R: BEEP .1,-3: BEE 
P ,1,-2: NEXT R 

39G RETURN 

4008 PRINT TAB As: "> You were thi 
myking” 

4965 FOR R=3 TO 106: BEEP .1,3: B 
FEEP .3,-3: BEEP .1,R+5: NEXT R: 
REEP .,3,28 
SiM>oPRINT TAB 65* Of a “SAS (M) 
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428 GO TO 39D 
439 RETURN 


As you can see, X-SPURT allows itself a little bit of fallibi- 
lity, with | CANNOT IDENTIFY IT if the total it has reached 
does not tally with any of your input (line 380). 





You can see that it tells you its tally after each run, so you 
can keep track of what it is doing. If you wish to impress 
people with your expert system, youll probably enhance 
the impression it creates if the ‘works’ are not so publicly 
displayed. 


Here’s the complete listing of X-SPURT: 


19 REM X-SPURT 
15 POKE 23658,299: INVERSE @: 


FLASH @: BRIGHT 1: PAPER 1: INK 
7: BRIGHT @: BORDER 1: CLS 
26 GQ SUB 949: REM INITIALISE 
28 GO SUB 9546: REM "GAIN EXPER 
TISE" 
49% GO SUB 126: REM DEMONSTRATE 
FMPERTISE 
“8 GO SUB 1868 
6O@ PRINT "PRESS ""ENTER"" FOR 
ANOTHER TURN QR ANY KEY THEN "" 
ENTER"" TO QUIT." 
SA INPUT QS 
SO IF QSG="" THEN GO TO 4@ 
10qa@ STaPp 
LI1G REM KEKEKEKHHKKHH KKH HHH KHKHHEHK YH 
1246 REM ¥DEMONSTRATE EXPERTISE 
134 CLS 
14@ GO SUB 1969 


1359 


PRINT INK 6; INVERSE 1535" Pp 


lease think of one of the + 
Ollowing- _ 


169 FOR J=1 TO OUTCOMES 


17@ 


PRINT TAB J+23 


is@ IF J=OQUTCOMES THEN PRINT "© 


r- be ; 


19°69 


PRINT ABS(J) 


288 NEXT J 


2146 GO SUB 1662 

226 LET RESULT=9 

230 LET X=.5 

2496 PRINT "Please enter ""Y"" Oo 
Pe re” seu” 

226 FOR J=1 TA FACTORS 


268 LET *=K+x 









278 GO SUB 1069 

z<eo8 PRINT BS#(J) 

290 INPUT ES 

3900 IF ES@="N" THEN LET RESULT=R 
ESULT +X 

S10 NEXT J 

3206 PRINT TAB 35 INK 33; "> My re 
sult was ";RESULT 

3398 GQ SUB 1460 

399 LET M=9 

308 LET M=M+1 

360 IF D(M)=RESULT THEN GO TO 4 
GA 

378 IF M<COUTCOMES THEN GO TO 35 
iM) 

380 PRINT TAB 23; FLASH 15 INK 3S 
5 ">> I cannot identify it <<"5 F 
LASH @: FOR R=5 TO 10: REEP .2,- 
4: BEEP .1,1@-R: BEEP .1,-3: BEE 
P .1,-2: NEXT R 
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399 RETURN 


639 
649 
6350 





4G@ PRINT TAR 35"> You were thi 
Aking" 

465 FOR R=5 TO 16: BEEP .1,3: 8&8 
FEP .3,-3: BEER .f,R+S: NEXT R: 
BEEP .3,29 

419>PRINT TAB 65" of a “SAS (M) 

4296 GO TO 39 

930 RETURN 

44G REM KHKEKEKKKKKKKKKKKKKKEK 

450 REM **¥* FILL ARRAYS ¥#* 

4690 PRINT TAB (26-LEN N®/2)5N% 

476 GO SUB 1469 

4890 REM * GET OUTCOME NAMES ¥* 

470g FOR J=1 TO QUTCOMES 

99890 GO SUB 1969 

3919 PRINT "What 18S outcome "35J;5 

9 

929 INPUT AG( J): PRINT INK 45AS% 
(J) 

930 NEXT J 

93996 CLS 

958 REM ** GET QUESTION TO BE 
ASKED ** 

Y60 FOR J=1 TO FACTORS 

976 GO SUB 1969 

“80 PRINT "Please enter questio 
n "3 J 

Y9O INPUT BS( J) 

6998 NEXT J 

6198 CLS 

626 REM ** ACQUIRE EXPERTISE ** 


FOR J=1 TO OUTCOMES 
CLS 
GO SUB 1969 


268 


669 


PRINT "Please answer the fo 


llowing gquestion"’ "For an ou 
tcome of >"SASB(J)3"<" 


689 
696 


Yes 82 88 


GO SUB 1969 
PRINT "Enter ""Y"" for a"" 
answer"’ " or ""N"" for a 


TR N Ys Th reply" 


PBS 
22G 
73D 
248 
PID 
7 OB 
27D 
7868 
PID 


LET X=.5 

FOR K=1 TO FACTORS 

LET ®=X+x 

GO SUB 1962 

PRINT TAB 43"> "3 BS(K) 3 
LET MULTI=¢ 

INPUT YS 

IF YS="N" THEN LET MULTI=-1 
LET D(J)=D(J)+XX¥MULTI: REM 


COMPILE EXPERT BASE 


SAD 
31g 
32D 
B38 
se: " 
S40 
S35d 
869 
3/78 
S3g 
a9D 
ree 25 2) 
910 
vee 2) 
9 3G 
9d 
O=@ 


NEXT K 

NEXT J 

CLS 

PRINT "This 18S my expert ba 


FOR J=1 TO OQUTCQMES 

GO SUB 1969 

PRINT AS(J)5" ---"*5D(J) 
NEXT J 

GO SUB 19692 

PRINT TAB 83; "Press ""ENTER” 


INPUT Q& 

CLS 

RETURN 

REM KEKEKKKKEKKHERKEKKKKK KEK 
REM ¥*¥ INITIALISATION X¥* 
CLS 





966 INPUT "Name of system? ";NS 
976 GO SUB 1462 

938 INFUT "Number of outcomes? 
"s;OUTCOMES 

996 GO SUB 10960 

1998 INPUT "Number of factors to 
be considered? ";FACTUR 


~~ 
—~ 


1G91@ DIM AS(QUTCOMES,15): DIM BS 
(FACTORS, 32) 

192@ DIM D(QUTCOMES) 

1G2@ CLS 

1449 RETURN 

1LGSH REM KHKEKKHHHHHK HHH HH KKK 
1966 PRINT : PRINT 

1978 RETURN 





CHOOSING A CHIP 


It would be very inconvenient if we had to educate our 
expert, aS we did X-SPURT, every time we wanted to make 
use of the expertise. It is unlikely, in a real situation, a 
totally ‘soft’ expert would be needed. This next program 
shows an expert body of knowledge — the ability to distin- 
guish between several chips (of the silicon variety) — 
encoded in DATA statements. 


Here's the program in action: 


THIS IS MY EXPERT BASE: 


270 





9940 (I3L) —- 56 





MN1610 (NMOS) --—- 46 
8086 --- 60 
Z8001 --- 28 


I CAN IDENTIFY FROM THE FOLLOWING: 
TMS 9940 (NMOS) 
68000 (NMOS) 


9940 (13L) 


MN1610 (NMOS) 
8086 


OR Z8001 





After telling you what it can do, the program asks you to 
answer a number of questions in relation to the chip you are 
trying to identify. It will then tell you the name of the chip: 


PLEASE ENTER 'Y' OR 'N'... 


IS THE WORD SIZE 32 BITS 
? N 


2/71 


DOES IT ADDRESS 64K 
2 N 


IS THE CLOCK RATE 5MHz OR LESS 
2 Y 


IS SHORTEST OBEY 3 MICROSECONDS OR LESS 
2 Y 


DOES INSTRUCTION SET CONTAIN MORE THAN 


71 INSTRUCTIONS 
? N 


IS THE PACKAGE 40 PIN DIP 
2 N 
> MY RESULT WAS 12 


> THE ONE YOU HAVE 
IS 68000 (NMOS) 


The expert base came from another expert, Ken Ozanne, 
whose expertise was once again encoded in a book (The 
Interface Computer Encyclopedia, London: Interface 
Publications, 1983). Once the information is locked into the 
DATA statements in the program, it is ready for use at any 
time. 


Here's the crucial part of the program, where the know- 
ledge is stored: 
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(FACTORS, 692): 


6890909 


V8 
IID 
69D 
619 
6209 
639 








646 
6309 
669 
67D 
689 
698 
7OBB 
716 
22D 
73D 
74D 
PIB 
7323 
7 OD 


77O 


REM ¥¥ INITIALISATION ¥¥ 
CLS 

RESTORE 

LET OUTCOMES=6 

LET FACTORS=6 

DIM AS(OUTCOMES,17): DIM BS 


DIM D(OUTCOMES) 














FOR J=1 TO OUTCOMES 
READ AS(J),D(J) 
NEXT J 

FOR J=1 TO FACTORS 
READ BS(J) 

NEXT J 

RETURN 

REM KHXKKHHEKH HHH 
PRINT : PRINT 
RETURN 


REM XH HII HIE IIE 

REM ¥¥%¥ OUTCOMES + 

REM **% CHIP TITLES ¥* 

DATA "TMS 9948 (NMOS) ",44, " 
(NMOS) ",12 

DATA "9949 











(I3L)",56, "MN161 


@ (NMOS) ",46 


1 


Zz 


3S micro 


set containmore than /?/1il 
ions” 


780 
PID 
890 
t." 
819 
829 

or 
830 


84940 


DATA “8986" ,69, "289091" ,28 
REM #X* QUESTIONS **¥ 
DATA "Is the word size 32 b 








"Does it address 64K. * 
"Is the clock rate SMH 


DATA 
DATA 
less" 
DATA 





"Is the shortest obey 
seconds or less” 

"Does the instruction 
instruct 


DATA 
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S52 DATA "Is the package 48 pin 
dip” 


Even if you have no desire whatsoever to identify chips, 
you can still make use of the expert system encoded in this 
program. As you can see, the variables OUTCOMES and 
FACTORS are assigned in lines 610 and 620, and these are 
used to dimension the arrays in line 630. Change the 
variables to the outcomes and factors you have, modify the 
DATA statements, and you have your very own expert 
system, ready to help you. The crucial number which the 
system uses to identify the chip (or to isolate whichever 
Outcome you want) is held in the DATA statements 
immediately following the name of the chip. 


To work out the numbers, | set up a chart like the following. 
It is simple to do the same for your subject: 








2 3 5 6 
mS 9940 20 0 7 1 OF 7 44 
0000 
994018. 0 0 0 1 7 1 56. 
WNIgIO «=O 
6066 0 0 1 1 1 1 60) 
7001 =80 0d 


aor a oF ae a OP eS BS SF SE OC SS a a a a 2 ae a a aw ae a & Ff oF a a aw ee SP es a SS a FF Ss EF oF EF eF EF c* a oe ar a-P 
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Here's the complete program now, so you can create the 
expert of your choice. 


1@ REM CHIP-CHOICE 

15 POKE 23658,299: FLASH @: BR 
IGHT 1: INK 7: PAPER 1: BRIGHT @ 
BORDER 1: CLS 

26 GO SUB 58@: REM INITIALISE 


58 GO SUB 459: REM SHOW BASE C 
ONTENTS 

46 GO SUB 1296: REM IDENTIFY CH 
IP 





7B 
69 


GO SUB 729 
PRINT “Press ""ENTER"®" for 


another chip or any key then “*" 
ENTER*®”" to quit." 


8D 
9S 
190 
119 
120 
139 
1499 
15d 








INPUT Q& 

IF QS="" THEN GO TO 49 
STOP 

REM HKEKKHHEKEKEKKHEKKEKKEKEE 
REM ¥% IDENTIFY CHIP ** 
CLS 

GO SUB 7296 

PRINT BRIGHT 1535 "I can ident 





ify from the"’ "following" 


» 


y* 


169 
17D 
189 
"3 
196 
LOD 
219 
2208 
230 
248 


FOR J=1 TO QUTCOMES 
PRINT TAB J+23 
IF J=OQUTCOMES THEN PRINT *O 


PRINT INK 45A%S(J) 

NEXT J 

GO SUB 729 

LET RESULT=9 

LET X=.9 

PRINT "Please enter “""Y*"" Oo 





ah = seu” 


275 


250 FOR J=1 TO FACTORS 
260 LET x2=X+txX 
286 PRINT °*BS(J) 
29S INPUT ES 
295 IF ES®<>"y" 
GO TO 29% 

3090 IF ES<>"N" THEN LET RESULT= 
RESULT+xX 

3S1i9G NEXT J 

326 PRINT TAB 35 INK 35 "My resu 
lt was ";RESULT 

3398 GO SUB 729 

3490 LET M=e8 

3598 LET M=M+1 

360 IF D(M)=RESULT THEN GO TO 4 
BOD 

370 IF M<OUTCOMES THEN GO TO 3S 
PD 

3890 FOR R=1 TO 3S: BEEP .1,R: BE 
EP .2,Rt+190:; NEXT R: PRINT TAB 33 

INK 3S; FLASH 15"> I cannot iden 
tify 1t"3; FLASH @ 

399 RETURN 


400>BEEP 1,-190: FOR R=1 7O 3: B 
FEP .2,6: BEEP .1,3: BEEP .1,1: 
NEAT R: BEEP .5,-7: PRINT TAB 355 
"The one you have"’TAB 83"1Ss "5 
S$ (MM) 

926 GO TO 399 

4390 RETURN 

GAD REM KEKKKKEKKEKEKKKEKKEKEKEKKKKKEH 

45390 REM ¥SHOW CONTENTS OF BASE 

4690 CLS 

47908 PRINT "This 1S my expert ba 
se: ” 





AND ES<>"N”" THEN 














489 
49D 
wa 25) 
31d 
ILE 
93D 












249 
ape 4) 
IO8 
3/78 
U8Pd 
IID 
69D 
619 
6209 
6328 


(FACTORS, 69): 


649 
6598 
669 
5/728 
689 
69S 
4 4} 2) 
71D 
720 
73D 
748 
PID 
72329 
7 OD 


689008 


21S 


FOR J=1 TO OUTCOMES 
GO SUB 729 


PRINT AS(J)3" --- "3D(J) 
NEXT J 

GO SUB 72¢ 

PRINT TAB 83"Press “"RETURN 
INPUT Qs 

CLS 

RETURN 


REM KEKKKKHEHEEHKEKKKEEK KEE HE 
REM *#*% INITIALISATION *% 
CLS 

RESTORE 

LET OQUTCOMES=64 

LET FACTORS=6 

DIM AS(OQOUTCOMES, 17): DIM BS 
DIM D(QUTCOMES) 
FOR J=1 TO QUTCOMES 


READ AS(J),D(J) 











NEXT J 

FOR J=1 TO FACTORS 

READ BS(J) 

NEXT J 

RETURN 

REM XKXHHKHHHH HHH 

PRINT : PRINT 

RETURN 

REM KHEKKHK HHH HHH HHI 

REM ¥%% HHH 

REM *¥*% CHIP TITLES ¥**% 

DATA "TMS 9949 (NMOS) ", 44," 
(NMOS) ",12 

DATA "9948 (I3L)",56, "MN161 


(NMOS) ",46 


olf 


DATA “8S886" ,69, "Z890901",28 
REM #%* QUESTIONS # 
DATA "Is the word size 32 bD 


DATA "Does it address 64K. ” 
DATA "Is the clock rate SMH 
less” 

S30 DATA “Is the shortest obey 
3 micro seconds or less” 

S49 DATA “Does the instruction 
set containmore than 71 instruct 
10o0ns” 

S598 DATA “Is the package 496 pin 

dip” 
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CHAPTER THIRTEEN — 


SELF-LEARNING 
SYSTEMS 


You ll recall, in the second system we looked at in this 
section, that the program X-SPURT allowed you to enter 
expertise on any subject. Once you'd fed it in, the program 
was ready to be your expert on the subject you had 
chosen. 








However, it had one disadvantage. It demanded that you 
run through each of the factors, for each of the outcomes, in 
order to acquire a knowledge base from which it could 


work. 





Our next program, SELFLEARN, does not require the same 
kind of spoonfeeding which was needed with X-SPURT. 


here it is in action: 


HOW MANY FACTORS? 3 


ENTER FACTOR 1 
? WINGS 


ENTER FACTOR 2 
? PAIR OF EYES 


ENTER FACTOR 3 
? EATS WORMS 
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ENTER OUTCOME 1 
? SPARROW 


ENTER OUTCOME 2 
? HUMAN 


Once you have this information in place, you can run the 
program, and it will proceed to teach itself how to tell the 
difference between various outcomes: 


NOW I WILL DEMONSTRATE MY EXPERTISE... 
THINK OF ONE OF THE OUTCOMES 
IS WINGS TRUE? ('Y' GR 'N') 
? N 
> 0 
IS PAIR OF EYES TRUE? ('Y' OR 'N') 





>BRAYN= 0 
OUTCOME IS SPARROW 


IS THIS CORRECT? ('Y' OR 'N') 
? N 


NOW I WILL DEMONSTRATE MY EXPERTISE... 
THINK OF ONE OF THE OUTCOMES 


IS WINGS TRUE? ('Y' OR 'N') 
2 Y 
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> 1 
IS PAIR OF EYES TRUE? ('Y' OR 'N') 


"7 
> 4 
IS EATS WORMS TRUE? ('Y' OR 'N') 
? Y 
> 14 
>? BRAY N=—1 


OUTCOME IS HUMAN 
IS THIS CORRECT? ('Y' OR 'N') 
2 N 


For a while it will get things wrong, as you see above, but 
then will start getting some correct guesses: 


NOW I WILL DEMONSTRATE MY EXPERTISE... 
THINK OF ONE OF THE OUTCOMES 
IS WINGS TRUE? ('Y' OR 'N') 
2 Y 
> 1 
IS PAIR OF EYES TRUE? ('Y' OR 'N') 


? Y 
> 1 


IS EATS WORMS TRUE? ('Y' OR 'N') 


? Y 
> 4 


>BRAYN= 2 


OUTCOME IS SPARROW 
IS THIS CORRECT? ('Y' OR 'N') 
2 Y 
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NOW I WILL DEMONSTRATE MY EXPERTISE... 
THINK OF ONE OF THE OUTCOMES 


IS WINGS TRUE? ('Y' OR 'N'}) 
? N 





> OQ 


IS PAIR OF EYES TRUE? ('Y' OR 'N') 
? Y 

> 17 
IS EATS WORMS TRUE? ('Y' OR 'N') 
? N 

>» OU 

>BRAY N=—1 

OUTCOME IS HUMAN 
IS THIS CORRECT? ('Y' OR 'N') 
? Y 


In due course it will become infallible: 





NOW I WILL DEMONSTRATE MY EXPERTISE... 
THINK OF ONE OF THE OUTCOMES 
IS WINGS TRUE? ('Y' OR 'N') 


IS EATS WORMS TRUE? ('Y' OR 'N') 
? Y 


> 17 


>BRAYN= 1 
OUTCOME IS SPARROW 


IS THIS CORRECT? ('Y' OR 'N') 
? Y 
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HOW IT WORKS 


The important thing (and the major limitation) of this 
program is that it can only distinguish between two 
Outcomes (such as SPARROW and MAN in our example). 
The program starts with the assumption that its total (the 
variable BRAYN) will be either greater than or equal to 
zero, or less than zero. The actual value BRAYN achieves 
does not matter. 


When you first run it, the program asks for the raw informa- 
tion it will need: 


4990 REM #82 INITIALISATION 
4196 CLS 

426 LET OTCQ=2: REM NUMBER OF 
OUTCOMES 

4360 PRINT © FRINT 

499 INPUT “How many factors "j5F 
ACT 

4589 DIM AS(OTCO, 390): REM NAMES 
OF OUTCOMES 

469 DIM BS(FACT, 30): REM NAMES 
OF FACTORS 

4790 DIM C(FACT): DIM D(FACT) 
48¢@ CLS 

4990 FOR J=1 TO FACT 

~1G PRINT ’"Enter factor "3;J;5" 


3206 INPUT BS(J): PRINT INK 45 BS 
(J) 

938 NEXT J 

VIG CLS 

968 FOR J=1 TO OTCO 
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SSO PRINT ’"Enter outcome "5J5" 


999 INPUT AS(J): PRINT INK 355AS 
(J) 

699 NEXT J 

6106 RETURN 


Each time through the loop, SELFLEARN begins by filling 
each element of the C array (there is one element for each 
FACT) with zero: 


39 REM * MAJOR LEARNING LOOP & 
40 CLS 

08 FOR J=1 TO FACT 

66 LET Ct(J)=9 

7B NEXT J 

88 PRINT 

99 GO SUB 1398 

1989 GO TO 49 














It then proceeds to print up the factors, one by one, asking 
you to comment ‘Y’ or ‘N’ on whether they refer to the 
Outcome you have thought of: 


126 REM ¥* DEMONSTRATION TIME * 

136 PRINT INK S33 "Now I will dem 
onstrate my expertise...” 

146 PRINT ’"Think of one of the 
outcomes” 

145 PRINT 

1590 FOR J=1 TO FACT 

176 PRINT INK S3;°Is "3; BS(J)5 IN 
K 73; BRIGHT 15" True?( *"Y¥"" or 
TN ee 

180 INPUT zg 
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19S IF 2%<>"Y" AND 2%<>"N" THEN 
GO TO 189g 


266 IF 2%$="Y¥" THEN LET C(J)=1 


219 PRINT TAB 293; INK 43C(J) 
226 NEXT J 








If you say ‘Y’ then that element of the C array is set to one. 


Once you've been through this loop, BRAYN works out a 
total for that outcome, with the code from 230 to 270: 


238 LET BRAYN=9 
29499 FOR J=1 TO FACT 


2509 LET BRAYN=BRAYN+C(J)¥D(J) 
260 NEXT J 


2/68 PRINT TAB 285;"> BRAYN="3 BRA 
YN 


lf you look at the listing carefully, you'll see that the very 
first time this loop is run, BRAYN will equal zero (because 
all of those C(J)’s have been multiplied by D(J)’s, and every 
D(J) starts out equalling zero). 


This means, the very first time you run the program, it will 
give you option one (that is A$(1), the first outcome you 
entered), as BRAYN will be equal to zero: 


288 IF BRAYNO=8 THEN PRINT "Out 
come 18S "s;AS%(1): LET EX=-1i1 

2968 IF BRAYN<KD THEN PRINT "*Qutc 
ome 185 ";AS(2): LET EX=1 









SELFLEARN then asks if that was correct. If you tell it that it 
is correct, it does not modify its information, because — in 
its present condition — it will give the same answer next 
time the same information is presented. If, however, you tell 
it that it was wrong, it will go through the next loop, modify- 
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ing the values of D(J) using both the C(J) values you gave, 
and by use of the variable EX. If you look back to lines 
280 and 290, you'll see EX is set to -1 if the outcome it 
thought of was A$(1), and to 1 if it thought of A$(2). 


D(J) is the vital component of the loop 240 to 260 helps 
determine the value of BRAYN, so this must be modified if 
the program gave the wrong result: 


5908 PRINT "Is this correct? ("" 
7 08 or b8 oe WY ae ny) o0 


SiG INPUT zd 


320 IF Z26¢>"°7" AND Z26<¢>"N" THEN 
GO TO 319 


330 PRINT 


349 IF 2%="Y" THEN FOR R=1 TO 5 
BEEP .1,R: NEXT R: GO TO 389g 


345 FOR R=-1 TO -S STEP -1: BEE 
P .1,R!: NEXT R 


3598 FOR J=1 TQ FACT 


$60 LET D(J)=D(J) +EX¥C(J) 
5370 NEXT J 


539 RETURN 


Once it has made its changes to D(J), using both the values 
of the elements of the C array (which can, you'll see from 
lines 60 and 200, only have values of one or zero), the 


program returns for another try. As you'll see, it soon 
becomes infallible. 
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269 


Here is the complete listing: 











190 REM SELFLEARN 
15 BRIGHT 1: FLASH @: INK 7: B 
ORDER 1: BRIGHT @: PAPER 1: CLS 
26 GO SUB 4996: REM INITIALISE 
390 REM * MAJOR LEARNING LOOP * 
49 CLS 
28 FOR J=1 TO FACT 
69 LET C(J)=9 
7O NEXT J 
SO PRINT 
99 GO SUB 1398 
1969 GO TO 42 
L1G REM KEKKKEKKKKKKKEKKKEKEHKKE 
1290 REM * DEMONSTRATION TIME # 
1390 PRINT INK S53; "Now I will dem 
onstrate my expertise...” 
199 PRINT ’"Think of one of the 
outcomes” 
145 PRINT 
150 FOR J=1 TO FACT 
178 PRINT INK S35 "Is “;BS(J)5 IN 
K 73; BRIGHT 13" True?( "“"Yr"" or 
TaN Ce 
180 INPUT 2% 
196 IF 28<>"Y" AND 28<>"°N" THEN 
GO TO 189 
208 IF 2$="Y" THEN LET C(J)=1 
21G@ PRINT TAB 293; INK 45C(J) 
226 NEXT J 
230 LET BRAYN=9 
29496 FOR J=1 TO FACT 
259 LET BRAYN=BRAYN+t+C (J) #D(J) 


NEXT J 
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276 PRINT TAB 2683"> BRAYN=";5; BRA 
YN 

286 IF BRAYN>=68 THEN PRINT "Out 
come is "s;A@(1): LET EX=-il1 

29OG IF BRAYNSCS THEN PRINT “Qutc 
ome 185 "s;sAS(2):2 LET EX=1 

3960 PRINT "Is this correct? ("" 
Y"" or "NU ™)® 

3160 INPUT z& 

3260 IF 28<>"Y¥" AND Z2S<>"N". THEN 
GO TO 319 

330 PRINT 

3499 IF 2$="Y" THEN FOR R=1 TO S 
- BEEP .1,R: NEXT R: GO TO 389 
345 FOR R=-1 TO -S STEP -1: BEE 
P .1,R: NEXT R 

3590 FOR J=1 TO FACT 

3690 LET D(J)=D(J) +EX¥C (J) 

3790 NEXT J 

32a RETURN 

29D REM HKEEKKEKEKKKKKKHKKEK KEKE S 
400 REM ¥¥ INITIALISATION ** 
4106 CLS 

4A2G@ LET QTCO=2: REM NUMBER QF 
QUTCOMES 

43@ PRINT =: PRINT 

4994 INPUT "How many factors "j§F 
ACT 

$538 DIM AS(QTCQ, 39): REM NAMES 
QF OUTCOMES 

460 DIM BS(FACT, 30): REM NAMES 
OF FACTORS 

478 DIM C(FACT): DIM D(FACT) 
430 CLS 

4A9Q@ FOR J=1 TO F4cT 
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“19 PRINT ’"Enter factor "3 J5" 


~28 INPUT BS(J): PRINT INK 45B% 


(J) 

U308 NEXT J 

Vom CLS 

“58 FOR J=1 TQ ATCA 

-29 PRINT ’"Enter outcome "333" 


“PA INPUT AS(J): PRINT INK 53 A% 
(J) 

SGG NEXT J 

61G RETURN 





MORE THAN TWO 
ALTERNATIVES 





Although it is facinating to have an expert system which 
teaches itself in this way, it is a major drawback to be able 
to choose from just two alternatives. Our next program, 
MULTI-SELF-LEARN, is designed to allow for more than 
two outcomes. 


The program starts much as you would, by now, expect: 


HOW MANY QUTCOMES? 3 


HOW MANY FACTORS? 3 
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PLEASE ENTER NAME OF OUTCOME 1 
? HUMAN 

PLEASE ENTER NAME OF OUTCOME 2 
? HORSE 

PLEASE ENTER NAME OF OUTCOME 3 
? SPARROW 


PLEASE ENTER NAME OF FACTOR 1 
? A SINGLE PAIR OF LEGS 
PLEASE ENTER NAME OF FACTOR 2 


? CAN FLY UNAIDED 
PLEASE ENTER NAME OF FACTOR 3 
? BREATHES OXYGEN 


THESE ARE THE POSSIBLE OUTCOMES: 


HUMAN 
HORSE 
SPARROW 


PLEASE THINK OF ONE OF THEM 


PRESS RETURN WHEN YOU ARE READY 
? 


However, when you run it, youll see that it asks you 
questions, then makes a guess as to what you were 
thinking of. If it was wrong, it asks you what the correct 
answer should have been: 
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PLEASE ANSWER 'Y' OR 'N' FOR EACH OF 
THE FOLLOWING IN RESPECT OF 


THE OUTCOME YOU HAVE THOUGHT OF 


A SINGLE PAIR OF LEGS 

2 Y 

CAN FLY UNAIDED 

?N | 

BREATHES QXYGEN 

2 Y 

YOU WERE THINKING OF HORSE 


ENTER 'Y' IF I'M RIGHT, 'N' IF WRONG 
2 N 

WHAT SHOULD THE ANSWER HAVE BEEN 

? HUMAN 


Run it long enough (which is not very long with only three 
Outcomes, and three factors) and it gets them right every 
time: 


PLEASE ANSWER 'Y' OR 'N' FOR EACH OF 
THE FOLLOWING IN RESPECT OF 
THE OUTCOME YOU HAVE THOUGHT OF 





A SINGLE PAIR OF LEGS 

? N 

CAN FLY UNAIDED 

? N 

BREATHES OXYGEN 

? Y 

YOU WERE THINKING OF HORSE 


ENTER 'Y' IF I'M RIGHT, 'N' IF WRONG 
2 Y 


PLEASE ANSWER 'Y' OR 'N! FOR EACH OF 
THE FOLLOWING IN RESPECT OF 
THE OUTCOME YOU HAVE THOUGHT OF 


A SINGLE PAIR OF LEGS 


2 Y 
CAN FLY UNAIDED 
2 Y 
BREATHES OXYGEN 
2 Y 


YOU WERE THINKING OF SPARROW 


ENTER 'Y' IF I'M RIGHT, 'N' IF WRONG 
2 Y 


The important part of this program lies between lines 150 
and 520. The first section of this accepts the ‘Y’ answers, 
and increments a variable called COUNT in terms of your 
answer (adding 1 for the first ‘Y’, 2 for the next, 4 for the 
next, then 8, 16, 32 and So on): 


159 PRINT "Please answer ""y"" 


Or ""N"" €0r each of the fol] 
Owing in respect to the oc 
utcome you have thought of.” 

186 PRINT 





248 INPUT 2%: PRINT "? "3 FLASH 


290 IF 28¢>"Y¥" AND 2%<¢>"N" THEN 
GO TO 24@ 
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266 IF 2$="¥" THEN LET COUNT=CQ 
UNT +x 


278 NEXT J 


After the program has been running for a while, it will have 
assigned values to many elements of the B array. B(1) will 
be the total when A$(1) is the outcome, B(6) will be the 


total for an outcome of A$(6) and so on. A small loop is 
traversed after the ‘Y’ answers are given, to see if the total 


obtained equals any previously-stored B(J) value. If it 
does, then the variable X is set equal to the relevant J: 


236 LET x=9 
299 FOR J=1 TO OTCO 


306 IF COUNT=B(J) THEN LET xX=J 
S19 NEXT J 


lf such a value has been assigned, X is no longer equal to 
zero, and the system has made a decision: 


S20 IF K<>oG THEN GO 10 414 


If no definite answer has been obtained here, the computer 
generates a random number between 1 and the number of 
outcomes, in order to make a guess. But it is not enough to 
then say “WERE YOU THINKING OF” ;A$ (random number 
generated). Although your program may not yet have 
assigned an AG$(n) to the n total you received, it may well 
have assigned some elements of AS. Therefore it can, and 
must, reject some ‘guesses’ produced by the random 


number generator: 


338 LET ¥=INT (RNDXOTCO) +1 
346 REM *¥** REJECTS ANSWERS 
KNOWN TO BE WRONG ¥% 
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3598 LET FLAG=0 

368 FOR J=1 TQ OTCO 

S79 IF B(J)=G TREN GO TO 398 
Seq IF xK=J AND COUNT< >B(J) THEN 
LleT FLAG=]1 

398 NEXT J 

408 IF FLAG=1 THEN GO TQ 334 


If the variable FLAG equals anything except zero, then the 
guess (the element of A$ represented by the randomly- 
generated value of X) cannot be used, as the system 
already knows that answer is wrong. Therefore, using line 
400, it goes back to choose a new value for X. 


Having done so, the program checks on its guess: 


416 PRINT "You were thinking of 
"3S AB(X) 

420 PRINT 

430 PRINT "Enter ""Y¥"" if I’m er 
rQrt, ""N"" if I’m wrong” 

446 INPUT 2% 

4508 IF 26¢>"Y" AND 26<>"N" THEN 
GQ TQ 44¢ 

460 IF 26$="Y" THEN LET B(X%)=coau 
NT? FOR R=1 TO 3S: BEEP .1,2: BEE 
P .1,5: BEEP .1,R: GO TQ 3 

470 FOR R=1 TQ 4: BEEP .1,7: BE 
FP .2,8: BEEP .1,R¥2: NEXT R: PR 
INT "What should the answer have 
been" 

48H INPUT 24% 

49°90 FOR J=1 TO OTCA 

—@f" TF AF(J, TO LEN 2¢)=26 THEN 
LET BCT) HCDUNT 

“1G NEXT J 

929 GO TQ 3¢ 
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Ifthe guess was correct, the system uses the loop from 490 
to 510 to find out which element of A$ corresponds to the 
total generated in that run. This ensures that, when it meets 
the same total next time, it will be able to identify the 
relevant element of A$. 





Here’s the complete listing, so you can set up a major 
expert system, which will teach itself: 


19 REM MULTI-SELF-LEARN 

15 INVERSE @: POKE 236532, 299: 
BRIGHT 1: FLASH @: PAPER 1: INK 
7: BRIGHT @: BORDER 1: CLS 

248 GQ SUB 3550: REM INITIALISE 

20 CLS 

4@ PRINT "These are the possi5b 
le outcomes: " 

99 PRINT 

68 FOR J=i TO OTCO 

2768 PRINT TAB J;sAS(J) 








SO NEXT J 

9A PRINT 

19@ PRINT "Please think of one 
of them" 

1190 PRINT 

120 PRINT "Press "5; FLASH 15 "EN 
TER"$; FLASH G3" when you are réa 
dy" 

13@ INPUT z& 

19@ CLS 

15@ PRINT "Please answer ""yr" 
or ""N"" for each of the foll 
Owing if respect to the o 


utcome you have thought of." 
18A PRINT 
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198 LET COUNT=92 

208 LET X=.5 

21@ FOR J=1 TO FACT 

228 LET X=X+X 

23@ PRINT FS(J) 

24@ INPUT Z%: PRINT "? "3 FLASH 
132%"? 

250 IF Z&<>"Y" AND 2%<>"N" THEN 
GO To 249 

268 IF Z%="Y" THEN LET COUNT=CQ 
LINT +x 

278 NEXT J 

289 LET X=9 

294 FOR J=1 TO aTCO 

28@ IF COUNT=B(J) THEN LET X=J 
318 NEXT J 

3206 IF X<>@ THEN GO TO 412 

338 LET X=INT (RNDX¥OTCO) +1 

349 REM ** REJECTS ANSWERS 

KNOWN TO BE WRONG ¥* 

359 LET FLAG=29 

34@ FOR J=1 FO OTC 

37@ IF B(J)=@ THEN GO TO 392 
388 IF X=J AND COUNT<>B(J) THEN 
LET FLAG=1 


3990 NEXT J 

4600 IF FLAG=1 THEN GO TO 3306 
4190 PRINT "You were thinking of 
"3s AB(X) 

4926 PRINT 

4390 PRINT “Enter ""Y"" if I’mor 
ight, ""N"" if I’m wrong” 

4490 INPUT 2& 

450 IF 26¢>"Y" AND 26<>"N" THEN 


GQ TQ 4$4¢ 


G69 


IF 2Z26="Y" THEN LET B(X)=CoUu 





NT: FOR R=1 TO S: BEEP .1,2: BEE 
P .1,5: BEEP .1,R: GQ TQ 34 

4708 FOR R=1 TQ 4: BEEP .1,7: BE 
EP .2,8: BEEP .1,R¥2: NEXT R: PR 
INT "What should the answer have 
beer". 

4ea0 INPUT 2 

4990 FOR J=1 TO OTCO 

“8G IF AS(J, TQ LEN 2%) =Z2Z2% THEN 
LET B(J)=COUNT 

S1G NEXT J 

5928 GO TO 32 

32380 STOP 

DAF REM HEKKKKEKKEKKKEKKKKKEE 
=o REM INITIALISATION 

952 CLS 

S728 PRINT "How many outcomes? " 
s: INPUT OTCO 

S8a PRINT INK S3QTCO’’ 

=9G PRINT "How many factors? "$5 
> INPUT FACT 

608 PRINT INK S5FACT’’ 

618 LET x=QTCO+t+FACT 

628 DIM AS(OTCO, 30) 

638 DIM FR(FACT, 38): DIM R(X) 
648 FOR J=1 TO QTCO 

658 PRINT "Please enter name of 
outcome "5 

6628 INPUT AG( J): PRINT INK 435"? 

"SABI I) 

6782 NEXT J 

sea CLs 


69@ 


FOR J=1 TO FACT 
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728A PRINT "Please enter name of 
factor "3J 

Y1@G INPUT F#(J): PRINT INK 45"? 
"SFS( IJ) 

7209 NEXT J 

730 RETURN 


NO NEED FOR CORRECTION 





Our finat program in this section is a variation of the one 
you have just been studying. The only difference between 
this one, and the preceding one, is that this one does not 
need to be told what the correct answer should have been 
if it makes a mistake. The program works out for itself, fairly 
quickly how to distinguish between the various values. 


| have not renumbered this program, so it will be easy to 
modify MULTI-SELF-LEARN so that it becomes MULTI- 
SELF-LEARN-2. Here is the program up and running: 


HOW MANY QUTCOMES? 5 


HOW MANY FACTORS? 5 


PLEASE ENTER NAME OF OUTCOME 1 
? DOG 


PLEASE ENTER NAME OF OUTCOME 2 
? HORSE 


PLEASE ENTER NAME OF OUTCOME 3 
? SHEEP 
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PLEASE ENTER NAME OF OUTCOME 4 
? CROW 


PLEASE ENTER NAME OF OUTCOME 5 
? HUMAN 


PLEASE ENTER NAME OF FACTOR 1 
? POWER OF SPEECH 


PLEASE ENTER NAME OF FACTOR e 
? BARKS 


PLEASE ENTER NAME OF FACTOR 3 


? ABLE TO FLY 
PLEASE ENTER NAME OF FACTOR 4 


? FOUR LEGS 


PLEASE ENTER NAME OF FACTOR 5 
? PRODUCES WOOL 


Once the knowledge base is in place, the program 
proceeds as follows: 


THESE ARE THE POSSIBLE OUTCOMES: 


DOG 


HORSE 
SHEEP 


CROW 
HUMAN 


PLEASE THINK OF ONE OF THEM 


PRESS RETURN WHEN YOU ARE READY 
? 


PLEASE ANSWER 'Y' OR 'N' FOR EACH OF 


THE FOLLOWING IN RESPECT OF 
THE QUTCOME YOU HAVE THOUGHT OF 
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POWER OF SPEECH 


PRODUCES WOOL 
2 ON 
YCU WERE THINKING OF CROW 


ENTER 'Y'! IF I'M RIGHT, 'N' IF WRONG 
2 N 


While most of its answers will be wrong when the run 
begins, the correct guesses will become more frequent as 
time goes on: 


PLEASE ANSWER 'Y' OR 'N' FOR EACH OF 
THE FOLLOWING IN RESPECT OF 
THE QUTCOME YOU HAVE THOUGHT OF 


POWER OF SPEECH 





2 N 
ABLE TO FLY 
2 Y 


FOUR LEGS 

? N 

PRODUCES WOOL 

? N 

YOU WERE THINKING OF CROW 


ENTER 'Y' IF I'M RIGHT, 'N' IF WRONG 
2 Y 
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Eventually, it will not make any mistakes. It works in much 
the same way as the previous program, assigning values to 
the elements of the B array. However, this time it has an 
array called C, which ensures that it will never make the 
Same wrong guess from the same total. This acts to 
increasingly limit the possible outcomes which could be 
obtained, so the number of things it can guess from is 
reduced each time. It does not take it long to build up a. 
‘world view which ensures it will be right every time. The 
number of trials it will take to obtain perfection depends, of 
Course, on the number of outcomes. 


After the program has managed to teach itself to distinguish 
between the outcomes without error, it will be holding a 
knowledge base it refers to for each subsequent trial. This 
is the base that MULTI-SELF-LEARN-2 built up during that 


run: 





J= 1 BlJJ= 10 A$(J)=DOG 
J= 2 BlJJ= A$( J) =HORSE 
J= 3 BlJUJ= 24 #£xA$(JU)=SHEEP 
J= 4 BlJJ= 4 # £xA$(J)J=CROW 
J= 5 BlJJ= A$(J})=HUMAN 


And this is the listing: 


16 REM MULTI-SELF-LEARN 2 

15 BRIGHT 1: FLASH @: PAPER 1: 
INK 7: BRIGHT @: BORDER 1: CLS 
26 GO SUB 558: REM INITIALISE 








78 PRINT TAB J$ INK 45AS(J) 

SO NEXT J 

99 PRINT 

1900 PRINT "Please think of one 
of them" 

1190 PRINT 

128 PRINT "Press "3 FLASH 135 IN 
K 33; "ENTER"3 INK 73 FLASH 63° wh 
en you are ready” 

1306 INPUT z&% 











149 CLS 

156 PRINT “Please answer ""y"" 
or ""N"" €or each of the foll 
Owing in respect to the o 


utcome you have thought of.” 
189 PRINT 
199 LET COUNT=9 
269 LET X=.5 
219 FOR J=1 TO FACT 
229 LET X=X+xX 
230 PRINT BRIGHT 13FS(J) 
2499 INPUT 2S: PRINT "2? “"§$ FLASH 
132%’ ’ 
290 IF 2Z2&<>"Y" 
GO TO 249 
260 IF 28="Y" THEN LET COUNT=CO 
UNT +x 
278 NEXT J 
2390 LET x=9 











AND Z26<>"N" THEN 











2969 FOR J=1 TQ QTCO 
3598 IF COUNT=B(J) THEN LET X=J 
3519 NEXT J 





S20 IF X<>G THEN GO TO 419 

3390 LET X=INT (RNDEXOTCO) +1 

5490 REM *#* REJECTS ANSWERS 
KNOWN TO BE WRONG *% 
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330 LET FLAG=@ 

5690 FOR J=1 TO OTCO 

370 IF B(J)=8 THEN GO TO 3992 
5890 IF X=J AND COUNT<>B(J) THEN 
LET FLAG=1 

585 IF C(X)=COUNT OR D(X) =COUNT 
THEN LET FLAG=1 

399 NEXT J 

490 IF FLAG=1 THEN GO TO 334 
419 PRINT “You were thinking of 


"$3 AS(X) 
4290 PRINT 


4390 PRINT "Enter ""Y"" if JT’mir 
ight, ""N"" if I’m wrong” 

449 INPUT 2% 

458 IF 26¢>"Y" AND 26¢>"N" THEN 
GO TO 446 

46@G@ IF 26="Y" THEN LET BCX) =COU 
NT: FOR R=1 TO 3S: BEEP .1,2: BEE 
P .1,5: BEEP .1,R: GO TO 38 

4970 IF C(K)=@6 THEN LET C(x) =COU 
NT: GO TO 3d 

S20 LET D(X) =COUNT: GO TQ 38 
32308 STOP 
S4GD REM HKEKEKKEKKKKEKKEKKEKHERE 
SSsa REM INITIALISATION 
960 CLS 
570 PRINT "How many outcomes? " 
> INPUT OTCO 
Seq PRINT INK S;O0TCO’’ 
S599 PRINT "How many factor? "35: 
INPUT FACT 
4649 PRINT INK S;3FACT’’ 
618 LET X=OTCOtFACT 
626 DIM AS(OTCO, 39) 














‘wi ®@ 
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6368 DIM FS(FACT, 39): DIM BCX): 
DIM C(x): DIM DCX) 

6998 FOR J=1 TO OTCO 

658 PRINT "Please enter name of 


outcome "3J 

666 INPUT AS( TJ): PRINT INK 4; "°° 
"SAS(J) 

670 NEXT J 

6ee0 CLS 


6990 FOR J=1 TO FACT 

7848 PRINT “Please enter name of 
factor "5 

1G INPUT F#( J): PRINT INK 435"? 
"SFS(J) 

220 NEXT J 

736 RETURN 
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NOTES 


NOTES 


NOTES 


NOTES 


NOTES 








You can now demonstrate Artificial Intelligence in 
action on your microcomputer. 


From programs which learn and reason, to those which will talk 
to you, obey you and advise you, this book will guide you into 
the fascinating world of Al— where science fact interacts with 
science fiction. 





Cana machine really think? 





What is the nature of intelligence, and willa 
machine ever be built to partake of that nature? 








(communicate in ordinary English with your computer, and watch 
it follow your orders), DOCTOR (the most complete version of 
ELIZA ever published in BASIC), X-SPURT (an expert system 
ready to help you with any subject under the sun), SYLLOGY 

(a program which reasons) and TICTAC (a noughts and crosses 


game which learns as it plays, improving its skill from game to 
game). 








This book is part of the ‘Interface Artificial Intelligence Library’ 


HI another great book trom 
/ Interface 


£6.95 























